AD-A244  668 


NAVAL  POSTGRADUATE  SCHOOL 
Monterey ,  California 


% 


THESIS 


EMIANCLD  CONDENSATION  OF  R-113  ON  A 
SMALL  BUNDLE  OF  HORIZONTAL  TUBES 


ROBERT  WALTER  MAZZONE 


December,  1991 


Co- Ad  visor 
Co-Advisor 


Paul  J.  Marto 
Stephen  B.  Meinur\’ 


92  1  21  073 


Unclassified 


security  classirication  of  this  page 


la  Report  Security  Classification  Unclassified 


2a  Security  Classification  Authority 


2b  Declassification,  Downgrading  Schedule 


d  Performing  Organization  Report  Numberis) 


6a  Name  of  Performing  Organization 
Naval  Postgraduate  School 


6c  Address  (city,  slate,  and  ZIP  code) 

Monterey,  CA  93943-5000 


Sa  Name  of  Funding/Sponsoring  O;  janization 


REPORT  DOCUMENTATION  PAGE 


lb  Restrictive  Markings 


3  Distribution/Availability  of  Report 

Approved  for  public  release;  distribution  is  unhimted. 


5  Monitoring  Organization  Report  Number(s) 


6b  Office  Symbol  7a  Name  of  Monitoring  Organization 

(If  applicable)  34  Naval  Postgraduate  School 


7b  Address  (city,  state,  and  ZIP  code) 

Monterey,  CA  93943-5000 


9  Procurement  Instrument  Identification  Number 


Sc  Address  (city,  state,  and  /IP  code) 


10  Source  of  Funding  Numbers 


Program  Element  No  Project  No  Task  No  Work  Unit  Accession  No 


11  Title  (include  security  classification)  ENHANCED  CONDENSzM'ION  OF  R-113  ON  A  SMALL  BUNDLE  OF  HORIZON¬ 
TAL  T  UBES 


12  Personal  Author(s)  ROBERT  WALTER  MAZZONE 


13a  Type  of  Report 

Master's  Thesis 


13b  l  ime  Covered 
From  To 


14  Date  of  Report  (year,  month,  day) 

December,  1991 


page  Count 


16  Supplementary  Notation  The  views  expressed  in  this  thesis  are  those  of  the  author  and  do  not  reflect  the  official  piolicy  or  po¬ 
sition  of  the  Department  of  Defense  or  the  U.S.  Government. 


17  Cosaii  Codes 


Field 


18  Subject  Terms  (continue  on  reverse  If  necessary  and  identify  by  block  number) 
Subgroup  I  Heat  Transfer,  Condensation,  R-113,  Inundation,  Tube  Bundle 


19  Abstract  (continue  on  reverse  If  necessary  and  identify  by  block  number) 

Condensation  of  R-113  was  studied  using  an  evaporator/condenser  test  platform.  The  condenser  section  contained  four 
horizont.ll  tubes  (nominal  outer  diameter  15.9  mm)  forming  a  vertical  in-line  column  with  a  pitch-to-diameter  ratio  of  2.25 
and  a  condensing  length  of  1.2  m.  I  he  condenser  tubes  could  be  operated  either  individually  (ic.  as  a  single  lube  apparatus) 
or  as  a  small  tulw  bundle.  This  allowed  investigation  of  the  eflecls  of  condensate  inundation  on  different  types  of  condenser 
tubes.  T  ubes  tested  were  smooth  copper  tubes,  copper/nicke!  KORODENSE  rop>cd  tubes,  KORODENSE  lubes  wrapped 
with  wire,  and  copper/nickel  finned  tubes  (26  fpi).  The  outside  heat  transfer  coefficient,  was  calculated  by  experimentally 
determining  the  overall  heat  transfer  coefficient,  U,  ,  and  then  using  a  modified  Wilson  Plot  procedure.  Great  care  was  taken 
to  ensure  the  results  were  not  vitiated  by  the  presence  of  noncondensiblcs. 

Results  obtained  with  the  smooth  copper  tubes  are  in  agreement  with  published  data  and  verify  satisfactory  operation  of 
the  test  pkitform.  Eurthermore,  problems  associated  with  the  apparatus  encountered  by  previous  workers  were  successfully 
overcome.  In  comparison  to  the  top  smooth  tubes,  the  copper/nickel  top  KORODENSE  tube  yielded  about  a  22®/o  increase 
in  /i„.  When  different  diameters  of  wire  were  wrapped  around  the  copper/nickel  KORODENSE  lubes,  an  optimum  pitch- 
to-wire  diameter  of  7  was  found  yielding  ahnost  a  90®/o  increase  in  compared  to  the  top  smooth  tube.  This  marked  increase 
is  presumably  due  to  surface  tension  effects  thiiming  the  condensate  film.  The  copper/nickel  finned  tubes  gave  the  best  en¬ 
hancement  (approximately  a  7  fold  increase).  Comparison  of  the  data  obtained  from  the  top  copper/nickel  finned  tubes 
agreed  well  with  the  model  of  Beatty  and  Katz. 

T  he  effect  of  condensate  inundation  was  to  reduce  h,  for  the  lower  tubes  compared  to  the  top  tube  in  the  bundle.  Com¬ 
parison  of  /i,  for  the  second  tube  compared  to  the  top  tube  showed  that  the  effects  of  condensate  inundation  are  reduced  most 
by  wrapping  the  KORODENSE  tubes  with  fine  wire. 


20  Distribution  Availability  of  Abstract 
H  unclassified  unlimited  D  same  as  report 


22a  N.ame  of  Responsible  Individual 
Paul  J.  Marto 


,DD  FORM  1473,84  MAR 
security  classification  of  this  page 


21  Abstract  Security  Classification 
□  DTic  users  Unclassified 


22b  Telephone  (Include  Area  code) 

(408)  646-2768 


83  APR  edition  may  be  used  until  exhausted 
All  other  editions  are  obsolete 


22c  Office  Symbol 

54Ss 


Unclassified 


Approved  for  public  release;  distribution  is  unlimited. 


ENHANCED  CONDENSATION  OF  R-113  ON  A 
S.MALL  BUNDLE  OF  HORIZONTAL  TUBES 


by 


ROBERT  WALTER  MAZZONE 
Lieutenant,  United  Stales  Navy 
B.A.,  University  of  California,  San  Diego,  1971 
Ph.D.,  State  University  of  New  York  at  Buflalo,  1975 

Submitted  in  partial  fulfillment  of  the 
requirements  for  the  degree  of 


MASTER  OF  SCIENCE  IN  MECHANICAL  ENGINEERING 


from  the 

NAVAL  POSTGIUrkDUATE  SCHOOL 
December,  1991 


Anthony  J.  Healey,  Cl^man, 
Department  of  MechanictKTIngincerin 


e 


I 


ii 


ABSTRACT 


Condensation  of  R-113  was  studied  using  an  evaporator/condenser  test  platform. 
The  condenser  section  contained  four  horizontal  tubes  (nominal  outer  diameter  15.9 
mm)  forming  a  vertical  in-line  column  with  a  pitch-to-diameter  ratio  of  2.25  and  a  con¬ 
densing  length  of  1.2  m.  I  he  condenser  tubes  could  be  operated  either  individually  (ie. 
as  a  single  tube  apparatus)  or  as  a  small  tube  bundle.  This  allowed  investigation  of  the 
effecis  of  condensate  inundation  on  different  types  of  condenser  tubes.  Tubes  tested  were 
smooth  copper  tubes,  copper, 'nickel  KORODENSE  roped  tubes,  KORODENSE  tubes 
wrapped  with  wire,  and  copper'nickel  fmned  tubes  (26  fpi).  The  outside  heat  transfer 
coefficient,  h„  was  calculated  by  experimentally  determining  the  overall  heat  transfer 
coefficient,  b\  ,  and  then  using  a  modified  Wilson  Plot  procedure.  Great  care  was  taken 
to  ensure  the  results  were  not  vitiated  by  the  presence  of  noncondensibles. 

Results  obtained  with  the  smooth  copper  tubes  are  in  agreement  with  published  data 
and  verify  satisfactory  operation  of  the  test  platform.  Furthermore,  problems  associated 
with  the  apparatus  encountered  by  previous  workers  were  successfully  overcome.  In 
comparison  to  the  top  smooth  tubes,  the  copper/nickel  top  KORODENSE  tube  yielded 
about  a  22%  increase  in  h,.  When  different  diameters  of  wire  were  wrapped  around  the 
copper, 'nickel  KORODENSE  tubes,  an  optimum  pitch-to-uire  diameter  of  7  was  found 
yielding  almost  a  90%  increase  in  /i„  compared  to  the  top  smooth  tube.  This  marked 
increase  is  presumably  due  to  surface  tension  effects  thinning  the  condensate  film.  The 
copper/nickel  finned  tubes  gave  the  best  enhancement  (approximately  a  7  fold  increase). 
Comparison  of  the  data  obtained  from  the  top  copper/nickel  finned  tubes  agreed  well 
with  the  model  of  Beatty  and  Katz. 

The  effect  of  condensate  inundation  was  to  reduce  h,  for  the  lower  tubes  compared 
to  the  top  tube  in  the  bundle.  Comparison  of  fi,  for  the  second  tube  compared  to  the  top 
tube  showed  that  the  effects  of  condensate  inundation  are  reduced  most  by  wrapping  the 
KORODENSE  tubes  with  fine  wire. 
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NOMENCLATURE 


Standard  Symbols 
A  area, 

b  fin  spacing,  m 

Cg  parameter  defined  in  Eq  (2-11) 

C,  specific  heat,  J/kg  K 

D  diameter,  m 

e  fin  height,  m 

g  gravitational  acceleration, 

h  heat  transfer  coefficient,  Wlm^  K 

heat  transfer  coefficient  in  flooded  portion  of  finned  tube,  Wlni^  K 
/i*  heat  transfer  coeffcient  in  unflooded  region  of  finned  tube,  Wfm^  K 

hf  heat  transfer  coefficient  for  fins  in  unfloodcd  region,  Wjni^  K 

k  thermal  conductivity,  Wjm  K 

L  length,  m 

L  average  condensing  length  defined  by  Eq  (2-4) 

m  mass  flow  rate,  kg/s 

N  number  of  tubes  in  a  vertical  column 

Nu  Nusselt  number 

Pr  Prandtl  number 

q  heat  transfer  rate,  W 

q"  heat  flux,  H 

R  radius,  m 

Rf  fouling  resistance,  K/W 

wall  resistance,  K/W 
Re  Reynolds  number 

RCf  film  Reynolds  number 

T  temperature,  K 

t  fin  thickness,  m 

L'  overall  heat  transfer  coefficient,  Wlm^  K 

xii 


V 


velocity,  m/s 


Greek  Symbols 

d  tape  thickness,  m 

1/  fin  efficiency 

^  aspect  ratio  of  condensate  surface,  Eq  (2-13) 

0„  rotation  angle  normal  to  fin  surface 
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I.  INTRODUCTION 


A.  BACKGROUND 

In  the  last  few  years,  budgetaiy  considerations  have  led  to  a  reduction  in  the  funding 
level  available  for  new  vessel  construction  for  the  US  Navy.  In  construction  of  ships, 
weight  can  often  be  equated  to  cost.  This  has  led  the  Navy  to  look  at  various  ways  by 
which  the  weight  of  auxiliary  systems  can  be  reduced. 

Of  particular  interest  to  the  Navy  has  been  the  issue  of  reduced  weight  and  therefore 
cost  of  refrigeration  systems.  Two  major  components  of  refrigeration  systems  are  the 
evaporator  and  condenser.  If  the  weight  of  these  two  components  can  be  reduced,  then 
the  overall  weight  and  presumably  cost,  can  also  be  reduced. 

Condenser  weight  can  be  significantly  reduced  by  the  proper  selection  of  materials 
for  condenser  construction.  A  major  weight  savings  comes  from  changing  the  material 
which  is  used  for  construction  of  the  condenser  tubes.  As  an  example,  the  DDG-51  was 
originally  intended  to  have  a  refrigeration  condenser  made  of  titanium  finned  tubes.  This 
would  provide  a  substantial  weight  savings  and  a  reduced  cost  (presumably).  However, 
the  system  was  not  installed  on  the  current  flight  of  ships.  Rather,  traditional 
copper/ nickel  finned  tubes  were  utilized  for  the  refrigeration  condenser.  i 

In  re-designing  refrigeration  condensers,  changes  in  condenser  tube  material  based 
solely  on  weight  consideration  should  not  be  the  only  consideration.  The  reason  for  this 
is  that  a  lightweight  material  may  not  have  heat  transfer  characteristics  which  are  com¬ 
parable  to  copper  or  even  copper, 'nickel.  Therefore,  condenser  tube  designs  have  to  be 
developed  to  maintain  or  even  enhance  heat  transfer  or  else  the  condenser  will  have  to 
be  enlarged.  This  enlargement  is  necessary  in  order  to  provide  the  requisite  surface  area 
to  maintain  the  required  level  of  heat  transfer. 

Copper,' nickel  finned  condenser  tubes  have  been  used  in  refrigeration  condensers 
onboard  US  Navy  ships  for  many  years.  However,  the  use  of  titanium,  as  was  planned 
for  the  DDG-51  class  ships,  holds  the  promise  of  providing  substantial  weight  savings 
(not  to  mention  improved  corrosion  resistance  on  the  tube  side).  Unfortunately, 
titanium  has  a  thermal  conductivity  which  is  substantially  less  than  that  of  copper  or 
coppcr/nickel.  The  question  which  must  therefore  be  addressed  is  whether  titanium 

1  According  to  Mr.  John  Goodhue,  NAVSEA  code  SEA  56Y15,  the  reason  the  units  were 
not  installed  w  as  that  they  could  not  be  ready  to  support  proposed  construction  dates  lor  fhglit  one. 
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condenser  tubes  can  be  constructed  in  such  a  manner  as  to  maintain  heat  transfer  (due 
to  enhancement)  despite  the  lower  value  of  thermal  conductivity. 

A  major  problem  along  these  lines  is  how  to  measure  the  performance  of  various 
types  of  condenser  tubes.  Typically,  this  is  done  with  single  tubes  or  small  tube  bundles. 
These  tubes  tend  to  be  relatively  short.  Often,  the  experimental  apparatus  bares  little 
resemblance  to  a  shipboard  condenser.  Thus,  any  results  become  suspect  when  they  are 
extended  to  the  real  situation. 

In  order  to  examine  heat  transfer  characteristics  of  various  designs  of  condenser 
tubes,  the  best  means  is  to  construct  a  test  platform  composed  of  an  evaporator  and 
condenser  with  a  size  comparable  to  that  of  a  shipboard  system.  Unfortunately,  this  is 
seldom  feasible  due  to  costs  involved  and  the  size  of  the  plants.  However,  it  is  possible 
to  construct  a  reasonably  large  scale  test  platform  in  which  tube  performance  can  be 
evaluated.  This  evaluation  must  include  both  single  tube  performance  as  well  as  tube 
bundle  operation.  The  reason  for  this  is  that  condensate  forming  on  one  tube  falls  onto 
lower  tubes.  This  effect,  known  as  condensate  inundation,  can  result  in  decreased  heat 
transfer  on  lower  tubes  due  to  a  thickening  of  the  condensate  layer.  Hence,  another 
aspect  which  must  be  considered  is  whether  condenser  tube  geometry  can  be  changed  in 
such  a  manner  as  to  reduce  the  adverse  effects  of  condensate  inundation.  This  could 
help  make  up  for  decreased  thermal  conductivity  associated  with  lightweight  materials 
such  as  titanium. 

The  construction  of  a  suitable  condenser/evaporator  test  platform  was  begun  at  the 
Naval  Postgraduate  School  by  Zebrowski  [Ref.  1].  The  construction  and  initial  operation 
of  the  test  platform  was  completed  by  Mabrey  (Ref  2]  in  1988.  Mabrey  conducted  ex¬ 
periments  using  R-113  and  R-114  on  smooth  copper  tubes  as  well  as  copper/nickel 
finned  tubes  (26  fpi).  During  the  course  of  his  experiments,  an  orange-peel  or  dimpled 
appearance  was  observed  on  the  smooth  copper  tubes.  Additionally,  the  copper/nickel 
finned  tubes  showed  a  buildup  of  "material"  betw'een  the  fins.  This  material  was  beheved 
to  be  ice  although  this  was  not  proved.  The  cause  of  the  orange-peel  appearance  was 
also  never  identified. 

D.  OBJECTIVES. 

This  thesis  concentrates  on  the  condenser  section  of  the  test  platform  with  specific 
interest  in  the  condensation  of  R-113.  R-113  was  chosen  for  this  study  because  of 
convienence  ,  ie.,  it  is  a  liquid  at  atmospheric  pressure.  The  condenser  section  consists 
of  four  horizontal  tubes  mounted  in  a  vertical  in-line  column.  The  nominal  diameter  of 
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the  tubes  is  16  mm  with  a  condensing  length  of  1.2  m.  While  the  condensing  medium 
used  in  this  study  was  R-113,  the  condensation  of  many  different  types  of  fluids  can  be 
evaluated.  In  addition,  the  condenser  can  be  used  to  study  heat  transfer  on  almost  any 
type  of  condenser  tube  subject  to  the  nominal  outer  diameter  and  condensing  length  re¬ 
strictions  indicated. 

The  main  objective  of  this  thesis  was  to  resolve  the  contamination  problem  found 
by  Mabrey  [Ref  2],  and  to  make  the  test  platform  operational.  It  was  felt  that  such  a 
system,  once  operational,  could  be  used  to  study  heat  transfer  using  condenser  tubes 
made  of  various  materials  and  geometries.  In  addition,  since  the  tubes  are  arranged  in 
a  vertical  in-line  column,  the  effect  of  condensate  inundation  could  also  be  studied. 

C.  SPECIFIC  OBJECTIVES 

The  specific  objectives  of  this  study  were  as  follows; 

1.  Resolve  the  contamination  problem  reported  by  Mabrey  [Ref  2] 

2.  Establish  baseline  condensation  data  by  examining  the  condensation  of  R-113  on 
_smooth  copper  tubes. 

3.  Examine  the  heat  transfer  characteristics  of  R-113  on  various  tube  geometries 

4.  Investigate  the  effects  of  condensate  inundation 
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II.  LITERATURE  SURVEY 


A.  INTRODUCTION 

Condcnsanon  occurs  when  vapor  molecules  come  into  contact  with  a  surface  which 
has  a  temperature  below  the  vapor  saturation  temperature.  This  vapor,  coming  into 
contact  with  the  cooler  surface,  forms  a  liquid  which  can  accumulate  in  two  ways.  If  the 
liquid  wets  the  entire  surface,  a  continuous  film  of  liquid  is  formed.  On  the  other  hand, 
if  the  liquid  fails  to  wet  the  entire  surface,  droplets  are  formed.  These  two  types  of 
condensation  are  referred  to  as  filmwise  and  dropwise  condensation  respectively. 
Dropwise  condensation  yields  larger  heat  transfer  coefficients  but  is  difficult  to  maintain 
[Ref.  3].  All  condensers  today  are  therefore  designed  to  operate  with  film  condensation 
conditions. 

In  1916,  Nusselt  [Ref  4]  reasoned  that  as  vapor  condenses  on  a  cooler  surface,  such 
as  a  horizontal  tube,  a  continuous  fihn  of  condensate  will  form.  This  film  grows  in 
thickness  as  the  condensate  flows  around  the  tube  under  the  influence  of  gravity.  Hence, 
the  thickness  of  the  condensate  is  not  uniform  around  a  horizontal  tube.  Since  the 
condensate  acts  as  a  resistance  to  heat  transfer,  Nusselt  argued  that  the  local  heat 
transfer  coefficient  will  be  a  maximum  at  the  top  of  the  tube  where  the  film  thickness  is 
least  and  decreases  around  the  tube  as  the  condensate  thickness  increases. 

B.  CONDENSATION  OF  REFRIGERANTS  ON  SMOOTH  TUBES 

Goto  et  al.  [Ref  5]  examined  film  condensation  of  various  refrigerants,  including 
R-113,  on  smooth  copper  tubes.  Their  results  showed  values  for  the  vapor-side  heat 
transfer  coefficient  on  the  order  of  1.2  to  1.5  kWjm^  K  for  a  wall-film  temperature  dif¬ 
ference  of  3  to  25  K.  Furthermore,  their  results  were  about  10%  below  that  predicted 
by  Nusselt  thcor}'. 

Masuda  and  Rose  (Ref  6,7]  reported  that  condensation  of  R-113  on  smooth  copper 
tubes  yielded  an  outside  heat  transfer  coefficient  of  about  1500  Wjm^  K  for  wall-film 
temperature  differences  of  12  to  20  K.  Their  results  showed  good  agreement  with 
Nusselt  thcor}’. 

.Marto  ct  al.  [Ref  8]  showed  that  for  condensation  of  R-113  on  smooth  copper 
tubes,  the  vapor-side  heat  transfer  coefficient  was  on  the  order  of  1000  K  for  a 
temperature  drop  across  the  film  of  20  to  25  K.  Their  values  were  also  in  good  agreement 
with  Nusselt  theory. 
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C.  ENHANCEMENT  OF  FILM  CONDENSATION 

The  most  commonly  used  procedure  for  enhancement  of  film  condensation  is 
througli  the  use  of  integral-fin  tubes.  With  this  type  of  condenser  tube,  two  distinct  re¬ 
gions  exist;  namely,  a  flooded  and  an  unflooded  region.  Typically,  as  fluid  condenses 
on  a  finned  surface,  it  is  pulled  from  the  fin  tip  to  the  fin  root  by  surface  tension  forces. 
Gravity  then  causes  the  fluid  between  fins  to  drain  to  the  bottom  of  the  tube  where  it 
drains  off.  Hence,  condensation  on  a  finned  tube  involves  a  combination  of  surface 
tension  and  gravity  forces.  It  is  the  added  surface  tension  which  tends  to  enhance  heat 
transfer  over  smooth  tubes  by  thinning  the  condensate  film  at  the  fin  tip. 

Since  the  present  study  uses  R-113  as  the  working  fluid,  the  remainder  of  this 
chapter  will  focus  on  previous  experiments  which  have  used  low  surface  tension  fluids 
such  as  refrigerants.  For  additional  information  involving  other  fluids,  the  reader  is  re¬ 
ferred  to  recent  review  articles  by  Marto  [Ref  9,10],  Webb  [Ref  11]  and  Sukhatme  [Ref 
12]. 

1.  Condensation  on  Single  Enhanced  Tubes:  Theoretical  Models 

The  first  theoretical  model  of  condensation  on  finned  tubes  was  published  by 
Beatty  and  Katz  [Ref  13].  Their  theoretical  model  is  given  by: 

f^BK  = 


Here  ri,  is  the  fin  efficiency,  Aj  is  the  fin  surface  area,  is  the  unfinned  surface  area,  and 
A,/  is  the  effective  total  surface  area.  The  above  equation  can  be  simplified  to: 
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where  the  equivalent  diameter  is  given  by: 
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and 


Agf  =  r\jAf  +  Ay  (2  —  5) 

The  equation  for  the  heat  transfer  coefficient  is  a  Nusselt-type  condensation  equation 
based  on  the  equivalent  diameter  for  a  finned  lube.  This  equation  predicted  the  exper¬ 
imental  results  obtained  by  Beatty  and  Katz  to  within  +  20%. 

There  are  several  important  limitations  to  the  Beatty  and  Katz  model  [Ref  13]. 
It  does  not  distinguish  between  fin  tips  and  fin  flanks,  essentially  assuming  that  the  fins 
have  no  thickness.  Therefore  the  model  is  not  suitable  for  trapezoidal  fins.  A  second,  and 
perhaps  more  significant  limitation  is  that  the  Beatty  and  Katz  model  fails  to  take  into 
account  surface  tension  effects.  Instead,  the  model  assumes  that  the  flow-  of  the 
condensate  film  is  simply  a  function  of  gravity.  While  this  may  not  pose  a  serious  limi¬ 
tation  when  low  surface  tension  fluids  such  as  refrigerants  are  examined,  this  assumption 
can  become  critical  when  condensation  of  high  surface  tension  fluids  such  as  steam  are 
investigated. 

Another  limitation  of  the  Beatty  and  Katz  model  is  that  it  does  not  take  into 
account  condensate  flooding.  Rudy  and  Webb  [Ref  14]  argued  that  the  flooded  portion 
of  the  tube  was  ineffective  in  condensation.  They  therefore  proposed  that  the  Beatty  and 
Katz  model  be  modified  by: 


h 


RIV 


—  ^BK 


where  4>f,  the  flooding  angle,  is  defined  as: 
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where  is  the  outside  radius,  \{/  is  the  fin  tip  half  angle  and  a  is  the  fluid  surface  tension. 
It  is  interesting  to  note  that  this  modification  resulted  in  an  underprediction  of  Rudy  and 
Webb's  R-1 1  condensation  data  by  about  35" 'o. 

Webb  et  al.  [Ref  15]  next  argued  that  surface  tension  drainage  must  be  consid¬ 
ered  in  the  model.  They  derived  the  equation: 
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where  e  is  the  fin  height,  t  is  the  fin  thickness  and  b  is  the  width  of  the  space  between 
the  fins.  Substitution  into  the  Beatty  and  Katz  expression  yielded  agreement  with  ex¬ 
perimental  data  of  ±  10%. 

Owen  et  al.  [Ref  16]  argued  that  the  Rudy  and  Webb  [Ref  15]  model  had  to 
be  corrected  in  order  to  account  for  heat  transfer  in  the  flooded  part  of  the  tube.  Owen 
et  al.  proposed  the  equation: 

=  +  (2-9) 

where  h,  is  the  average  outside  heat  transfer  coefficient  and  /i*  is  the  heat  transfer  coef¬ 
ficient  in  the  flooded  region  of  the  tube.  This  value  was  estimated  using  a  one- 
dimensional  radial  conduction  model.  This  corrected  model  of  Owen  et  al.  resulted  in 
agreement  of  ±  30%  with  earlier  experimental  data. 

In  1985,  V/ebb  et  al.  [Ref  17]  proposed  a  model  that  included  heat  transfer  in 
the  flooded  region  as  well  as  surface  tension  drainage  on  the  fin  flanks  and  gravity 
drainage  on  the  interfin  surface.  Their  model  equation  for  the  average  heat  transfer  co¬ 
efficient  is: 
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In  this  expression,  /i*  is  the  heat  transfer  coefficient  for  the  unflooded  root  surface  be¬ 
tween  the  fins  and  h;  is  the  heat  transfer  coefficient  on  the  fin  flanks  in  the  unflooded 
area,  and  is  the  heat  transfer  coefficient  in  the  condensate  flooded  region.  The  term 
Cg  is  the  fraction  of  finned  tube  surface  flooded  by  condensate,  or, 
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where  0/  is  the  flooding  angle  given  in  equation  (2-7). 

In  the  Webb  et  al.  [Ref  17]  expression  for  the  average  heat  transfer  coefficient, 
/i*,  hf  and  /j*  are  defined  mathematically  as  follows: 

(2-12) 
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where  Rcf  is  the  condensate  film  Reynolds  number. 
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where  S„  is  the  length  of  the  convex  surface  and  0„  is  the  rotation  angle  normal  to  the 
fm  surface  [Ref  18).  The  term  ^  is  a  parameter  that  characterizes  the  aspect  ratio  of  the 
condensate  surface. 

Finally,  /j*  is  defined  as: 


/y=2.149y 


This  complex  model  of  Webb  et  al.  was  able  to  predict  heat  transfer  coefficients  to 
within  ±  20%  of  experimental  data  obtained  with  R-II. 

Honda  and  Nozu  [Ref  19]  and  Honda  et  al.  [Ref  20]  have  proposed  the  most 
comprehensive  model  to  date.  This  model  treats  the  heat  transfer  problem  as  one  in¬ 
volving  vapor-to-coolant  heat  transfer  through  a  finned  tube  wall.  In  this  model, 
trapezoidal  fins  were  divided  into  flooded  (f)  and  unflooded  (u)  regions.  Equation  (2-7) 
was  used  to  determine  the  flooding  angle.  Condensate  flow  in  between  the  fins  was  as¬ 
sumed  to  be  driven  by  gravity  whereas  for  the  fin  surface,  condensate  flow  was  assumed 
to  be  driven  by  both  surface  tension  forces  and  gravity.  The  condensate  film  thickness 
on  the  fin  surface  was  arbitrarily  divided  into  a  thick  region,  where  no  heat  transfer  oc¬ 
curred,  and  a  thin  film  region.  The  equation  of  the  condensate  film  thickness  was  solved 
numerically. 

Honda  and  Nozu  [Ref  19]  showed  that  the  average  Nusselt  number  could  be 
written  in  terms  of  relevant  parameters  for  the  flooded  (0  and  unflooded  (u)  regions  as: 

H  -  V)(l -0/) 

Nuj  =  —  = - ^ - z -  (2  -  15) 

Here,  T.,  and  are  the  dimensionless  average  wall  temperatures  at  the  fin  root  and  (f>f 
is  defined  as: 


(2-16) 
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It  should  be  pointed  out  that  and  7,, are  determined  by  solving  a  circumferential  wall 
heat  conduction  equation.  This  wall  temperature  variation  must  be  considered  since  heat 
transfer  rates  through  flooded  and  unflooded  regions  are  very'  different. 

Honda  and  Nozu  [Ref  19]  used  their  model  to  predict  average  heat  transfer 
coefficients.  These  predictions  were  compared  to  experimental  data  on  eleven  different 
fluids  and  twenty-two  tubes.  The  predicted  values  matched  most  experimental  values  to 
within  ±  20%. 

2.  Condensation  on  Single  Enhanced  Tubes:  Experimental  Results 

The  first  experiments  conducted  on  enhanced  tubes  were  performed  by  Katz  and 
colleagues  [Ref  21,22,  13  ].  These  authors  looked  at  condensation  of  R-12  and  R-22  on 
smooth  and  flnned  tubes.  Their  results  showed  a  significant  enhancement  in  heat  transfer 
for  finned  tubes. 

In  1971,  Karkhu  and  Borovkov  [Ref.  23]  examined  condensation  of  R-113  on 
five  finned  tubes.  Their  results  showed  that  the  rate  of  condensation  for  these  tubes  with 
trapezoidal  fins  could  be  increased  by  50  to  100%  over  smooth  tubes. 

Arai  et  al.  [Ref  24]  and  Kisaragi  et  al.  [Ref  25]  studied  the  condensation  of  R-12 
and  R-113  respectively  on  finned  tubes  with  spiral  grooves  cut  along  the  length  of  the 
tube.  Arai  et  al.  showed  that  grooves  with  a  pitch  of  0.7  mm  gave  the  best  enhancement 
in  heat  transfer.  Kisaragi  and  co-workers  also  compared  grooved  finned  tubes  with  tubes 
on  which  the  fins  had  been  covered  with  a  porous  coating.  In  comparison  to  the  finned 
tube,  a  two  fold  enhancement  was  seen  v/ith  the  grooved  finned  tube  while  a  four  fold 
enhancement  was  obtained  with  the  finned  porous  coated  tube. 

Carnavos  (Ref  26]  performed  one  of  the  first  detailed  studies  of  condensation 
of  R- 1 1  on  enhanced  copper  tubes.  In  this  study,  eleven  different  tubes  were  tested.  The 
tubes  included  finned  tubes  as  well  as  finned  tubes  which  had  an  axial  spiral  groove  cut 
along  their  length.  Various  sizes  and  shapes  of  fins  were  included.  Enhancements  of  4 
to  6  were  seen  when  compared  to  smooth  tubes. 

Rudy  [Ref  27]  and  Webb  et  al.  [Ref  15]  reported  experimental  data  obtained 
for  R-11  condensing  on  copper  tubes  with  different  fin  geometries.  Their  results  showed 
that  increasing  the  fin  density  from  748  to  1378  fpm  resulted  in  about  a  70%  increase  in 
heat  transfer  presumably  due  to  an  increased  surface  area. 

Honda  et  al.  [Ref  28]  studied  condensation  of  R-113  on  copper  finned  tubes  of 
various  fin  density.  Their  results  showed  a  6  to  9  fold  enhancement  for  R-113 
condensation  for  finned  tubes  when  compared  to  smooth  tubes.  A  similar  study  by 
Kabov  [Ref  29]  examined  the  condensation  of  R-12  and  R-22  on  tubes  with  different  fin 
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densities  His  results  also  showed  that  the  degree  of  enhancement  is  determined  by  fm 
spacing. 

Masuda  and  Rose  [Ref.  6)  examined  heat  transfer  for  the  condensation  of  R-1 13 
on  low  integral-fin  copper  tubes.  Fourteen  different  fin  spacings  (0.25  to  20  mm)  were 
examined.  The  optimal  fin  spacing  was  0.5  mm  which  resulted  in  a  7.3  fold  enhancement 
in  the  vapor-side  heat  transfer  coefficient. 

Lin  and  Berghmans  [Ref  30]  examined  condensation  of  R-1 1,  R-1 13,  and  R-1 14 
on  an  enhanced  tube.  This  enhanced  tube,  known  commercially  as  "EVERFIN ",  is  made 
of  trapezoidal  fins  (1378  fpm)  with  a  spacing  between  the  fins  of  0.064  mm.2  This  tube 
gave  an  8  to  10  fold  increase  in  the  %’apor-side  heat  transfer  coefficient  when  compared 
to  a  smooth  tube. 

Condensation  of  R-1 1  on  a  variety  of  enhanced  copper  tubes  has  been  reported 
recently  by  Sukhatme  et  al.  [Ref  31].  All  tubes  had  trapezoidal  shaped  integral  fins.  The 
fin  density,  fin  height  and  fin-tip  half  angle  were  systematically  varied  in  order  to  deter¬ 
mine  the  optimal  values  which  would  result  in  maximum  enhancement.  The  maximum 
enhancement  obtained  by  these  authors  was  about  10.3  relative  to  smooth  tubes.  This 
enhancement  corresponded  to  a  fin  spacing  of  0.35  mm,  a  fin  height  of  1.22  mm  and  a 
fin-tip  half  angle  of  10  degrees.  In  addition,  a  set  of  specially  enhanced  tubes  were  tested 
by  these  authors.  These  tubes  had  axial  grooves  cut  into  them  with  the  trapezoidal  fins 
present.  An  enhancement  of  12.3  was  obtained  with  these  specially  enhanced  tubes 
when  compared  to  smooth  tubes. 

Marto  et  al.  [Ref  8]  studied  condensation  of  R-1 13  on  a  variety  of  copper 
integral-fin  tubes  with  rectangularly  shaped  fins.  The  optimum  fin  spacing  was  found 
to  lie  between  0.25  and  0.5  min.  The  vapor-side  heat  transfer  coefficient  was  enhanced 
on  the  order  of  4  to  7  fold. 

.Michael  et  al.  [Ref  32]  continued  the  studies  of  Marto  ct  al.  [Ref  8]  by  looking 
at  the  effect  of  root  diameter  on  the  condensation  of  R-1 13  on  integral-fin  tubes.  They 
found  that  the  root  diameter  had  only  a  negligible  effect  on  heat  transfer  enhancement. 
In  addition,  these  investigators  found  that  the  optimal  fin  spacing  was  about  0.5  mm. 
They  obtained  an  enhancement  of  5  to  6. 

2  WTiile  the  authors  quote  a  fui  spacing  of  0.064  m.  this  value  seems  too  small.  Tlie  schematic 
diagram  of  the  fms  together  with  other  dimensions  published  by  these  authors  tend  to  suggest  that 
the  correct  fm  spacing  is  0.64  mm.  1  his  value  is  more  in  line  with  values  quoted  by  other  authors. 
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In  comparing  enhancements  reported  by  various  authors,  a  word  of  caution  is 
required.  In  calculating  values  for  the  vapor-side  heat  transfer  coefficients,  the  surface 
area  to  be  used  in  this  calculation  must  be  defined.  This  area  can  be  based  on  outside 
or  envelope  diameter,  root  diameter  or  total  fin  area.  The  great  majority  of  authors 
define  this  area  by  the  outside  diameter  of  the  tube  as  opposed  to  the  root  diameter.  In 
the  various  sources  cited  above,  this  has  been  the  case.  That  is,  the  surface  area  has  been 
defined  by  the  outside  tube  diameter. 

While  it  is  clear  that  integral-fin  tubes  can  result  in  an  enhancement  of  the 
vapor-side  heat  transfer  coefficient,  other  alternatives  exist.  As  an  example,  Fujii  et  al. 
(Ref  33]  studied  the  condensation  of  R-11  on  smooth  tubes  which  were  WTapped  with 
fine  wire.  These  authors  found  an  optimal  pitch-to-wire  diameter  ratio  of  2  which  re¬ 
sulted  in  an  enhancement  of  2.5  in  the  vapor-side  heat  transfer  coefficient  when  com¬ 
pared  to  copper  smooth  tubes.  These  authors  argued  that  the  enhancement  in  the  heat 
transfer  coefficient  was  due  to  a  thinning  of  the  condensate  film.  The  reason  that  the 
condensate  film  thickness  is  reduced  is  that  the  presence  of  the  wire  creates  a  low  pres¬ 
sure  region  in  the  film  near  the  base  of  the  wires.  This  low  pressure  region  is  due  to  the 
concave  shape  of  the  condensate  film  next  to  the  wire.  As  a  result,  condensate  film  is 
pulled  along  the  tube  wall  towards  the  wire.  This  results  in  a  thinning  of  the  condensate 
film  between  the  wdres. 

3.  Summary  of  Single  Enhanced  Tube  Condensation 

It  is  clear  from  the  preceding  discussion  that  theoretical  models,  despite  their 
degree  of  sophistication,  still  only  match  experimental  data  to  within  ±  20%.  This 
suggests  that  the  process  of  condensation  on  enhanced  tubes  is  extremely  complex  and 
far  from  being  fully  understood. 

In  terms  of  experimental  data  involving  condensation  of  refrigerants  on  en¬ 
hanced  tubes,  several  comments  need  to  be  made.  The  experiments  reported  here  have 
shown  that  intcgral-fin  tubes  can  give  enhancements  of  the  vapor-side  heat  transfer  co¬ 
efficient  on  the  order  of  7  to  12.  The  magnitude  of  this  enhancement  depends  upon  such 
factors  as  fin  shape,  fin  spacing,  and  fin  height.  Trapezoidal  shaped  fins  with  a  spacing 
of  0.5  mm  give  the  highest  enhancements. 

Unfortunately,  the  above  experiments  were  all  performed  on  enhanced  tubes 
made  of  copper  In  Naval  refrigeration  systems,  where  seawater  is  used  as  the  coolant, 
corrosion  is  of  major  concern.  This  necessitates  the  need  for  copper  nickel  or  titanium 
condenser  tubes  in.  order  to  minimize  corrosion.  However,  as  can  be  seen  from  the 
foregoing  summary  of  the  literature,  essentially  no  work  has  been  done  on  the 
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condensation  of  refrigerants  on  copper, 'nickel  or  titanium  finned  tubes.  Since  both 
copper  nickel  and  titanium  condenser  tubes  have  a  lower  thermal  conductivity  than 
copper,  one  must  wonder  what  effect  this  will  have  on  the  vapor-side  heat  transfer  co¬ 
efficient.  Clearly,  experiments  using  these  tubes  must  be  carried  out. 

4.  Condensation  on  Enhanced  Tube  Bundles:  Theoretical  Studies 

Condensation  in  tube  bundles  presents  an  entirely  different  situation  than 
condensation  on  single  tubes.  In  a  tube  bundle,  two  conflicting  factors  come  into  play. 
First,  condensate  forming  on  an  upper  tube  drains  off  this  tube  onto  lower  tubes  within 
the  bundle.  This  increases  the  thickness  of  the  condensate  layer  on  lower  tubes  which 
further  increases  the  resistance  of  these  tubes  to  heat  transfer.  This  effect  is  referred  to 
as  condensate  inundation. 

Condensate  falling  from  one  tube  to  another  can  have  a  second  effect.  As 
droplets  fall  from  one  tube  to  the  next,  ripples  and  splashing  (turbulence)  are  induced  in 
the  condensate  film.  This  can  actually  enhance  heat  transfer  on  the  lower  tubes. 

Vapor  velocity  can  also  be  a  significant  factor  in  tube  bundle  condensation.  As 
the  vapor  travels  into  the  tube  bundle  and  condenses,  the  local  velocity  decreases.  This 
decrease  in  local  velocity  leads  to  a  decrease  in  the  heat  transfer  coefficient  similar  to  an 
inundation  effect  since  vapor  shear  effects  that  thin  the  condensate  film  are  reduced. 

In  analyzing  condensation  in  horizontal  tube  bundles,  Nussclt  [Ref  4]  assumed 
that  all  condensate  flowed  from  one  tube  to  another  as  a  continuous  laminar  sheet.  He 
showed  that  the  ratio  of  the  average  heat  transfer  coefficient  for  a  vertical  column  of 
horizontal  tubes  with  respect  to  the  top  tube  could  be  expressed  as: 


where  N  is  the  number  of  tubes  in  the  vertical  column.  A  local  coefficient  can  also  be 
calculated  for  the  Nth  tube  using  Nusselt  theory’.  This  coefficient  is  given  by: 

=  -(A-  l)'’  (2-18) 

Kern  [Ref  34]  proposed  a  less  conservative  approach.  Me  argued  that  droplets 
of  condensate  falling  from  one  tube  to  another  causes  ripples  which  disturb  the 
condensate  film,  thereby  diminishing  the  effect  of  condensate  inundation.  His  math¬ 
ematical  model  took  the  form: 
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(2-19) 


The  local  value  of  h  for  the  Nth  tube  can  be  expressed  as: 

h  ±  ± 

=  _(,V- I)^  (2-20) 

In  1972,  Eissenberg  [Ref  35]  proposed  that  condensate  may  not  drain  only  in 
a  vertical  direction,  but  rather,  may  be  diverted  sideways,  presumably  due  to  local  vapor 
flow  conditions.  This  so-called  "side  drainage"  model  predicts  a  less  severe  effect  of 
inundation  yields: 

T  -  — 

-^  =  0.60  +  N  (2-21) 

At  the  present  time,  numerous  investigations  have  been  carried  out  in  an  at¬ 
tempt  to  better  understand  the  phenomenon  of  condensate  inundation.  However,  the 
data  are  scattered  and  as  a  consequence,  no  successful  theoretical  model  of  condensate 
inundation  exists  [Ref  31.  However,  for  design  purposes,  Butterworth  [Ref  36]  has  re¬ 
commended  that  the  Kern  model  be  used. 

5.  Condensation  in  Enhanced  Tube  Bundles:  Experimental  Studies 

Young  and  Wohlenberg  [Ref  37]  examined  the  condensation  of  R-12  on  a 
vertical  column  of  smooth  horizontal  tubes.  These  investigators  found  that  the  effect  of 
the  number  of  tubes  in  the  vertical  column  is  less  than  that  predicted  by  Nusselt. 

Katz  et  al.  [Ref  38]  investigated  the  condensation  of  R-12  on  a  vertical  column 
of  six  horizontal  finned  tubes.  Their  results  also  showed  a  less  severe  inundation  effect 
than  predicted  by  the  model  of  Nusselt. 

Smirnov  and  Lukanov  [Ref  39]  used  R-11  to  study  condensation  on  20  hori¬ 
zontal  rows  of  finned  tubes  arranged  in  a  triangular  fashion.  Their  results  showed  a 
dramatic  reduction  in  heat  transfer  for  the  first  five  tubes.  However,  after  this,  the  heat 
transfer  coefficient  remained  almost  constant  for  the  rest  of  the  tubes  in  the  column. 

Honda  et  al.  [Ref  40]  have  studied  the  condensation  of  R-113  on  a  vertical 
column  of  horizontal  low  finned  tubes.  An  inundation  tube  was  used  to  simulate  addi¬ 
tional  rows  of  tubes.  These  authors  described  four  modes  of  condensate  flow;  namely, 
droplet  mode,  column  mode,  column  and  sheet  mode,  and  sheet  mode.  Unfortunately, 
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these  authors  did  not  calculate  the  heat  transfer  coefficient  so  that  no  comparison  with 
theoretical  models  is  possible. 

Webb  and  .Muravvski  [Ref.  41]  examined  the  condensation  of  R-11  on  a  column 
of  enhanced  condenser  tubes.  The  tubes  tested  were  a  standard  1024  fpi  tube,  a 
GEWA-SC  tube,  a  Turbo-C  tube  and  a  TRED-D  tube.  The  GEWA-SC  tube  is  a  1024 
fpi  tube  but  the  fins  have  a  Y-shaped  cross-section.  The  Turbo_c  and  TRED-D  tubes 
are  similar  to  the  1024  fpi  tube  except  that  the  fins  have  a  saw'-tooth  shape.  Webb  and 
Murawski  found  that  a  standard  1024  fpm  tube  showed  virtually  no  row’  (inundation) 
effect.  However,  w'hen  the  experiments  were  conducted  on  Turbo-C,  GEWA-SC  and 
Tred-D  tubes,  row  effects  (ie.,  inundation  effects)  were  seen.  The  inundation  effect  was 
greatest  for  the  Tred-D  tube  which  also  had  the  lowest  single  tube  performance.  These 
investigators  found  values  for  the  exponent  in  equations  (2-17,  2-19,  and  2-21)  on  the 
order  of  0.12  to  0.26.  Recall  that  Nusselt's  theory  used  a  value  of  0.25. 

More  recently,  Honda  et  al.  [Ref  42]  studied  the  condensation  of  R-113  on  an 
in-line  horizontal  tube  bundle.  The  tubes  tested  consisted  of  either  flat-sided  (rectangu¬ 
lar)  annular  fins  or  three  dimensional  trapezoidal  fins.  These  authors  found  that  the  ef¬ 
fects  of  condensate  inundation  were  greatest  for  the  tliree  dimensional  fin  tubes. 
Unfortunately,  these  authors  also  had  vapor  velocities  on  the  order  of  3.4  m/s  or  greater. 
Therefore,  it  is  difficult  to  compare  their  results  directly  to  the  theoretical  models  of 
Nusselt,  Kern,  or  Eissenberg. 

An  interesting  facet  of  the  experiments  of  Honda  et  al.  [Ref  42]  deserves  men¬ 
tion.  These  investigators  compared  the  effects  of  condensate  inundation  on  the  vapor- 
side  heat  transfer  cocflicient  for  smooth  and  finned  copper  tubes.  Their  results  showed 
that  despite  condensate  inundation,  the  heat  transfer  coefficient  for  the  finned  tubes  w’as 
still  substantially  above  that  of  the  unfinned  tubes.  In  addition,  the  decrease  in  the  heat 
transfer  coefficient  with  increasing  row’  number  was  less  with  the  finned  tubes  suggesting 
that  the  effects  of  condensate  inundation  were  less  severe  with  finned  tubes  than  with 
unfinned  tubes.  Presumably,  this  result  is  due  to  the  fact  that  condensate  draining  off 
of  a  finned  tube  drains  in  columns  rather  than  continuous  sheets.  Lower  tubes  w'ill 
therefore  not  be  completely  covered  with  condensate  but  instead  will  have  unflooded 
regions. 

Honda  and  Nozu  [Ref  43]  examined  the  effects  of  condensate  inundation  on 
smooth  and  integral-fin  copper  tubes  using  a  theoretical  model  derived  recently  by 
Honda  et  al.  [Ref  44]  This  model  was  a  single  tube  model  which  was  extended  to  include 
the  effects  of  condensate  inundation  by  realizing  that  condensate  did  not  flow  off  tubes 
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as  sheets  but  rather  as  columns.  The  model  took  account  of  the  fact  that  regions  which 
received  drainage  of  condensate  had  different  heat  transfer  coefficients  than  regions 
which  did  not.  The  results  support  the  more  recent  experimental  results  of  Honda  et  al. 
[Ref  42].  The  effect  of  inundation  was  less  severe  for  the  finned  tubes  than  for  the 
smooth  lubes.  The  authors  suggest  that  this  is  due  to  condensate  being  channeled  on  the 
finned  tubes  whereas  for  the  smooth  tubes,  the  entire  tube  surface  becomes  covered  with 
a  condensate  film  of  varving  thickness. 

6.  Summar}'  of  Enhanced  Tube  Bundle  Condensation 

Experimental  data  has  shown  that  the  Nussclt  model  for  the  effects  of 
condensate  inundation  may  be  too  conservative.  Rather,  most  experimental  data  seems 
to  fall  between  the  Kern  and  Eissenberg  predictions. 

Other  experimental  data  suggests  that  the  effects  of  condensate  inundation  are 
less  for  finned  tubes  as  opposed  to  smooth  tubes.  Presumably,  this  is  due  to  the  manner 
in  which  condensate  flows  from  one  finned  tube  to  another.  The  presence  of  the  seems 
acts  to  channel  the  flow  of  condensate  leaving  large  areas  relatively  free  of  flooding  from 
inundation. 

As  a  final  comment,  the  use  of  wire  wrapped  tubes  provides  an  interesting  al¬ 
ternative  to  the  more  conservative  finned  tube  approach.  However,  the  effects  of 
refrigerant  condensate  inundation  on  wire  wrapped  tubes  has  yet  to  be  examined. 
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III.  EXPERIMENTAL  APPARATUS 


A.  TEST  PLATFORM 

Details  of  the  design  and  construction  of  the  condenser/evaporator  test  platform  are 
provided  by  Zebrowski  [Ref.  1]  and  Mabrey  [Ref.  2].  Therefore,  only  a  brief  summary 
■will  be  presented  here. 

The  test  platform  is  shown  schematically  in  Figure  1  while  a  photograph  of  the  unit 
is  shown  in  Figure  2.  The  unit  is  made  from  rolled  stainless  steel  plate  (6.35  mm  thick) 
and  designed  to  withstand  an  absolute  pressure  of  308  kPa  (approximately  3  bar). 

1.  Condenser  Section 

The  top  section  is  the  condenser.  It  is  1.3  m  in  length  with  an  internal  diameter 
of  0.61  m.  The  end  plates  are  made  of  stainless  steel  plate  (6.35  mm  thickness)  with  a 
diameter  of  0.71  m.  They  are  connected  to  the  condenser  shell  using  a  bolted  flange  as¬ 
sembly.  A  rubber  gasket,  3.22  mm  thick,  provides  a  vacuum  tight  seal.  The  condenser 
unit  has  five  viewports  which  allow  the  condensation  process  to  be  viewed. 

Four  test  condenser  tubes  are  contained  in  the  condenser  forming  a  vertical  in¬ 
line  column  with  a  pitch-to-diameter  ratio  of  2.25.  These  are  held  in  place  at  each  end 
by  a  nylon  block  bolted  to  the  end  plate.  A  rubber  gasket  provides  a  vacuum  tight  seal. 
A  stainless  steel  plate  is  fitted  over  the  ends  of  the  condenser  tubes  and  bolted  to  the 
nylon  block.  O-rings  are  placed  in  between  the  nylon  block  and  steel  plate  in  order  to 
provide  a  vacuum  tight  seal. 

In  order  to  provide  a  means  of  pressure  control  during  testing  of  the  condenser 
tubes,  the  test  platform  was  fitted  with  five  auxiliary  condenser  tubes.  These  auxiliary 
condenser  tubes  are  constructed  of  9.53  mm  diameter  copper  tube,  wound  into  coils. 
Each  coil  is  supported  by  a  stainless  steel  rod  welded  to  one  of  the  end  plates.  The  aux- 
iliaiy-  condenser  coils  enter  and  exit  through  this  same  condenser  end  plate. 

A  stainless  steel  shroud  assembly,  shown  in  Figure  3,  is  installed  in  the 
condenser  unit.  This  shroud  surrounds  the  test  condenser  tubes  as  w-ell  as  the  auxiliary 
condenser  coils.  A  window,  installed  in  the  side  of  the  shroud,  allows  visualization  of  the 
test  condenser  tubes  through  the  viewports.  The  purpose  of  this  shroud  is  to  funnel  va¬ 
por  from  the  evaporator  below’,  around  the  outside  of  the  shroud  and  then  vertically 
down  past  the  condenser  tubes.  The  velocity  of  the  vapor  past  the  condenser  tubes  was 
0.1  m/s. 
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Figure  1.  Schematic  diagram  of  test  platform. 
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2.  Evaporator  Section 

The  flooded  evaporator  is  formed  from  rolled  stainless  steel  and  has  an  internal 
diameter  of  0.61  m  with  a  width  of  0.279  m.  Two  viewports  allow  visualization  of  the 
boiling  process.  This  unit  is  connected  to  the  condenser  by  a  collar  assembly  0.28  m  in 
diameter  and  0.203  m  in  length.  The  volume  of  liquid  contained  in  the  evaporator  is 
approximately  0.06  just  sufficient  to  cover  the  boiler  tubes. 

Vapor  is  produced  in  the  evaporator  using  a  combination  of  three  groups  of 
heaters.  The  first  group  is  the  main  bundle  and  is  composed  of  thirty-five  tubes  in  a 
triangular  pitch  (pitch  to  diameter  ratio  of  1.2).  Fifteen  of  these  have  heaters  with  a 
nominal  rating  of  1  kW  each.  Five  of  these  heated  tubes  are  instrumented  with 
thermocouples  to  enable  bundle  boiling  data  to  be  obtained.  In  addition,  unheated 
dummy  tubes  are  used  to  guide  the  two  phase  flow  within  the  bundle. 

The  second  group  of  tubes  is  composed  of  five  simulation  heaters,  each  with  a 
nominal  rating  of  4  kW.  These  are  placed  below  the  main  bundle  in  order  to  simulate 
further  rows  of  tubes. 

The  final  group  consists  of  four  auxiliary  heaters,  each  with  a  nominal  rating 
of  4  kW.  Two  of  these  are  placed  on  each  side  of  the  evaporator  in  order  to  keep  the 
liquid  pool  at  saturation  conditions;  this  avoids  any  subcooling  of  the  liquid.  Power  to 
all  three  sets  of  heaters  is  provided  by  three  separate  STACO  240V,  23.5kVA  rheostat 
contollers. 

For  further  information  on  the  design  and  construction  of  the  test  platform,  the 
reader  is  referred  to  Zebrowski  [Ref.  1],  Mabrey  (Ref  2],  Murphy  [Ref.  45],  and  Chilman 
[Ref.  46]. 

3.  Coolant  System 

The  coolant  is  a  54/46  by  weight  mixture  of  ethylene  glycol  and  water.  The 
coolant  system  consists  of  two  main  coolant  pumps.  These  pumps  are  0.5  hp  constant 
speed  pumps  which  take  a  suction  from  the  main  coolant  sump.  One  pump  is  used  to 
supply  five  rotameters.  A  ball  valve,  located  at  the  entrance  to  each  rotameter,  is  used 
to  control  the  flow  rate.  Flow  to  each  test  condenser  tube  is  supplied  by  an  individual 
rotameter.  The  fifth  rotameter  is  used  to  supply  one  of  the  auxiliary  condenser  coils.  A 
needle  valve  is  used  to  provide  fine  control  of  flow  through  the  coil.  This  coil  is  normally 
used  to  control  saturation  pressure  during  experimental  runs. 

The  secOiid  coolant  pump  is  used  to  supply  coolant  flow  to  the  remaining  four 
auxiliar>’  condenser  coils.  Flow  through  each  coil  is  controlled  by  a  needle  valve  located 
at  the  entrance  to  each  coil.  It  should  be  noted  that  the  four  auxiliary  cooling  coils  are 
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seldom  needed  during  the  condenser  experiments;  their  primary  purpose  is  for  use  during 
evaporator  experiments,  (see  Chilman  [Ref.  46]). 

In  addition  to  supplying  the  four  auxiliar}'  condenser  coils,  the  second  coolant 
pump  also  provides  coolant  flow  to  a  refrigerant  storage  tank  and  to  a  cold  trap  located 
at  the  top  of  the  condenser.  The  storage  tank  can  be  used  to  store  refrigerant  during 
condenser  or  evaporator  tube  changeout.  The  cold  trap  is  placed  in-line  between  the 
condenser  and  a  vacuum  pump.  Vapor  from  the  condenser  is  drawn  through  the  cold 
trap  which  is  cooled  by  the  ethylene  glycol'water  mixture.  This  process  is  used  to  remove 
noncondensibles  from  the  condenser  while  preventing  loss  of  refrigerant  to  the  atmos¬ 
phere. 

Flow  of  the  coolant  mixture  from  the  auxiliar>’  condenser  cooling  coils,  storage 
tank,  and  cold  trap  are  returned  to  the  sump  tank.  Coolant  flow  from  the  test  condenser 
tubes  empties  into  a  common  header  which  then  empties  into  the  same  coolant  sump 
tank. 

In  order  to  keep  the  coolant  mixture  temperature  approximately  constant,  it  is 
cooled  by  an  eight  ton  refrigeration  system  located  outside  the  building.  This  system 
continually  recirculates  the  coolant  using  a  0.75  hp  pump.  Coolant  temperature  can  be 
maintained  at  any  temperature  from  ambient  temperature  (approximately  20  "Q  down 
to  -20  °C. 

4.  Instrumentation 

Prior  to  entering  each  condenser  tube,  the  coolant  flows  through  a  mixing 
chamber.  The  inlet  temperature  is  measured  using  a  single  copper/constantan  type-T 
thermocouple.  Coolant  flows  from  each  condenser  tube  through  an  outlet  mixing 
chamber.  Outlet  coolant  temperatures  are  then  measured  using  two  thermocouples  for 
each  tube.  An  average  outlet  temperature  is  then  taken  for  each  tube.  All  thermocouples 
had  been  previously  calibrated  by  Mabrcy  [Ref  2]. 

Refrigerant  temperatures  were  measured  at  several  different  locations  in  the 
evaporator/condenscr  test  platform  using  similar  single  thermocouples.  Vapor  temper¬ 
ature  was  measured  in  two  separate  locations  at  the  top  of  the  condenser  and  one  lo¬ 
cation  just  above  the  liquid  level.  Refrigerant  liquid  temperature  was  measured  at  both 
the  top  and  bottom  of  the  tube  bundle.  The  thermocouples  were  inserted  into  stainless 
steel  housings  (with  copper  tips)  which  were  installed  in  the  condenser/evaporator  test 
platform. 
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B.  CLEANING  AND  DECONTAMINATION  PROCEDURES 

As  mentioned  earlier,  there  was  a  contamination  problem  with  the  test  platform 
during  the  work  of  Mabrey  [Ref  2].  Therefore,  the  experimental  apparatus  was  initially 
disassembled  and  cleaned  in  accordance  with  the  following  procedure. 

Prior  to  removing  the  evaporator,  all  heaters  and  thermocouples  were  discormected. 
The  lagging  around  the  mating  flange  was  then  removed.  A  Porta-lift  was  connected  to 
the  evaporator  mating  flange  in  order  to  support  the  weight  of  the  evaporator  prior  to 
removing  the  bolts  holding  the  evaporator  and  condenser  together.  After  supporting  the 
evaporator,  the  bolts  were  removed  and  the  evaporator  lowered  from  the  condenser  unit. 

Referring  to  Figure  2,  the  condenser  unit  is  capped  at  each  end  by  a  steel  end  plate. 
The  left  end  plate  supports  the  auxiliary  condenser  units  and  is  therefore  removed  after 
the  right  end  plate.  The  test  condenser  tubes  must  be  removed  prior  to  the  disassembly 
of  the  condenser.  The  assembly  which  holds  the  condenser  tubes  in  place  is  composed 
of  a  nylon  plate  bolted  to  the  condenser  end  plate.  A  gasket  insures  a  tight  seal  between 
the  nylon  and  condenser  end  plates.  A  stainless  steel  plate  is  bolted  against  the  nylon 
plate  with  0-rings  in  between  which  ensure  an  air  tight  seal  between  the  environment 
and  the  inside  of  the  condenser. 

The  plates  holding  the  test  condenser  tubes  in  place  must  be  removed  prior  to  re¬ 
moval  of  the  condenser  end  plates.  The  stainless  steel  plates  at  both  ends  are  removed 
by  unbolting  the  retaining  nuts.  The  nuts  holding  the  nylon  plate  in  place  are  then  re¬ 
moved.  A  rubber  mallet  is  used  to  tap  out  the  test  condenser  tubes  from  the  left  end  of 
the  platform.  This  causes  the  right  end  nylon  plate  to  move  away  from  the  right 
condenser  end  plate.  Screwdrivers  can  then  be  used  to  pry  the  nylon  end  plate  away  from 
the  condenser. 

The  condenser  end  plates  can  be  removed  after  the  test  condenser  tubes  have  been 
removed.  As  a  word  of  caution,  these  end  plates  weigh  in  excess  of  100  pounds. 
Therefore,  they  must  be  supported  during  the  removal  process.  In  these  studies,  a 
Porta-lift  was  used  for  this  purpose.  The  right  condenser  end  plate  was  removed  first, 
followed  by  the  left  end  plate.  Prior  to  removal  of  the  left  end  plate,  the  shroud  assembly 
had  to  be  removed.  This  was  facilitated  by  first  removing  the  thermocouple  probes  which 
penetrate  the  top  of  the  condenser  unit.  The  shroud  was  then  pulled  out  of  the 
condenser. 

If  the  auxiliary  condenser  tubes  arc  to  be  removed,  then  the  the  left  condenser  end 
plate  will  have  to  be  removed.  This  is  because  the  five  auxiliary  condenser  tubes  are  at¬ 
tached  to  the  left  end  plate.  The  location  of  the  test  platform  in  relation  to  the  coolant 
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sump  is  such  that  this  end  can  not  be  removed  with  the  evaporator/ condenser  test  plat¬ 
form  in  its  present  location.  Rather,  if  the  left  head  must  be  removed,  the  entire  test 
platform  must  be  rotated  180  degrees  about  a  vertical  axis. 

Initial  inspection  of  the  condenser  unit  showed  only  one  small  area  of  discoloration 
which  surrounded  the  middle  viewport.  No  other  obvious  signs  of  contamination  were 
evident.  The  condenser  and  evaporator  were  both  cleaned  using  "3-D  Supreme  Cleaning 
Agent",  a  commercially  available  product  which  leaves  no  residue.  All  components  were 
rinsed  with  fresh  water,  dried,  then  given  a  final  cleaning  with  acetone.  The  auxiliary 
condenser  coils  were  cleaned  and  decontaminated  in  the  same  manner. 

The  copper  condenser  tubes  also  appeared  somewhat  discolored.  These  were  cleaned 
using  "Shower  Power",  a  commercially  available  cleaning  agent.  Prior  to  installation  into 
the  condenser  unit,  they  were  given  a  final  cleaning  with  acetone  to  ensure  removal  of 
any  residue  left  over  from  the  cleaning  procedure. 

During  the  reassembly,  all  gaskets  were  replaced.  Prior  to  replacement  of  the 
evaporator  unit,  a  test  blank  was  installed  on  the  condenser  and  a  vacuum  test  success¬ 
fully  performed.  After  this  test  was  completed,  the  test  blank  was  removed  and  the 
evaporator  reinstalled.  All  penetrations  were  reconnected,  the  boiling  tube  bundle 
reinstalled  and  another  vacuum  test  performed. 

Prior  to  charging  the  system  with  R-113,  the  ethylene  glycol/water  coolant  pumps 
were  energized  and  flow  started  through  the  test  condenser  tubes.  For  this  initial  test, 
smooth  copper  tubes  were  used.  The  temperature  of  the  coolant  was  -IS'C.  Since 
Mabrey  [Ref  2]  had  noted  that  during  condensation,  a  thickening  between  the  fins  of 
copper/nickel  finned  tubes  was  occurring  which  suggested  ice  formation,  it  was  felt  that 
water  vapor  might  be  present  in  the  test  platform  since  it  had  been  open  to  the  atmos¬ 
phere.  Therefore,  by  running  the  coolant  mixture  at  this  temperature  tlirough  the 
condenser  tubes,  if  no  condensation  was  seen,  this  would  rule  out  the  presence  of  water 
vapor.  During  this  intitial  run,  no  condensation  was  seen  on  any  tubes.  In  addition,  the 
orange  peel  appearance  noted  by  Mabrey  on  the  smooth  copper  tubes  w'as  not  in  evi¬ 
dence. 

After  checking  the  evacuated  system  for  possible  contamination,  the  test  platform 
was  charged  with  fresh  R-113.  Coolant  flow  was  again  started.  This  time  an  orange  peel, 
or  dimpled  appearance  could  be  seen  on  the  top  condenser  tube.  This  suggested  some 
type  of  contamination  layer. 
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Power  (~  20  kW)  was  applied  to  the  heaters  while  the  coolant  temperature  was 
raised  to  ~  O’C.  The  orange  peel  appearance  on  the  top  tube  was  still  present.  Meas¬ 
urements  of  the  vapor  temperature  at  the  top  and  bottom  of  the  condenser  showed  ap¬ 
proximately  a  20  ®C  differential,  signifying  the  presence  of  significant  amounts  of 
noncondensible  gases.  These  gases  enter  with  the  refrigerant  and  are  released  into  the 
condenser  when  the  liquid  is  boiled. 

A  vacuum  pump,  connected  to  the  top  of  the  condenser  was  used  to  remove  these 
noncondensible  gases.  When  this  was  done,  the  temperature  differential  between  the  top 
and  bottom  of  the  condenser  decreased  to  less  than  0.5“  C.  The  orange  peel  appearance 
quickly  disappeared  and  all  four  condenser  tubes  demonstrated  good  filmwise 
condensation.  Based  on  these  observations,  it  was  standard  practice  to  degas  the  system 
for  at  least  four  hours  after  the  system  was  open  to  the  atmosphere  or  fresh  R-113  was 
added  to  the  evaporator. 
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IV.  EXPERIMENTAL  PROCEDURES 


A.  GENERAL  PROCEDURES 

The  experimental  procedure  was  identical  for  all  experiments.  The  coolant  pumps 
were  energized  and  flow  started  through  one  of  the  auxiliary’  condensers.  Flow  was  also 
started  through  the  four  test  condenser  tubes  at  a  nominal  coolant  velocity  of  0.2  m/s. 
The  auxiliary’  heaters  were  set  at  3  kW,  the  instrumented  tube  bundle  set  at  3.5  kW,  and 
the  simulation  heaters  set  at  1.5  kW. 

The  vapor  temperature  at  the  bottom  and  the  top  of  the  condenser  was  allowed  to 
rise  to  47.5  ®C  which  corresponds  to  the  saturation  temperature  of  R-113  at  atmospheric 
pressure.  The  rate  of  temperature  rise  was  controlled  to  approximately  0.3  degrees  per 
minute  by  adjusting  the  rate  of  coolant  flow  through  the  auxiliary  condenser.  During  the 
heat  up  period,  a  vacuum  pump,  connected  to  the  top  of  the  condenser  via  the  cold  trap, 
was  run  continuously  in  order  to  remove  any  noncondensiblcs.  The  absence  of 
noncondensibles  was  indicated  when  the  vapor  temperature  difference  between  the  top 
and  bottom  of  the  condenser  unit  was  less  than  0.5  "C. 

When  the  vapor  temperature  was  about  45  ®C,  coolant  velocity  was  adjusted  to  be¬ 
tween  1  and  1.2  m/s  for  the  four  condenser  tubes.  The  heater  power  levels  were  then 
readjusted  in  order  to  maintain  a  relatively  constant  condenser  pressure  while  leaving 
one  auxiliary  condenser  coil  on-line.  At  lower  coolant  velocities,  condenser  pressure  was 
maintained  using  the  auxiliary  condenser  coils.  The  power  settings  for  the  heaters  were 
not  altered  during  the  course  of  the  experiment. 

During  all  experimental  runs,  the  vapor  temperature  at  the  top  and  bottom  of  the 
condenser  unit  was  maintained  between  46.5  and  48.5  ®C  which  corresponds  to  a 
condenser  pressure  of  approximately  one  atmosphere.  Pressure  control  was  accom¬ 
plished  by  adjusting  coolant  flow  through  the  auxiliary  condenser  tubes. 

1.  Tube  Bundle 

Once  the  vapor  temperature  was  between  46.5  and  48.5  °C  ,  coolant  flow  was 
adjusted  to  the  desired  coolant  velocity  for  the  four  test  condenser  tubes.  Here,  the  de¬ 
sired  coolant  velocity  is  an  input  to  the  computer  program.  The  program  then  calculates 
the  required  flowmeter  setting  using  the  calibration  curves  (Appendix  A).  The  initial 
coolant  velocity  used  was  0.2  m,  s.  After  setting  the  flow  rate,  the  temperature  difference 
between  the  inlet  and  outlet  of  all  four  condenser  tubes  was  monitored  using  the  com- 
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puter  program,  DRPCON7.  Approximately  ten  minutes  was  required  for  this  temper¬ 
ature  differential  to  stabilize.  Once  stable,  a  data  set  was  taken.  This  procedure  was 
repeated  in  increments  of  0.1  m/s  up  to  a  ma.ximum  of  1.2  m/s.  The  procedure  was  then 
repeated  by  decreasing  the  flow  in  0.1  m/s  increments  down  to  0.2  m/s.  Two  data  sets 
were  obtained  at  each  coolant  velocity.  It  should  be  mentioned  that  for  the 
copper;  nickel  finned  tubes,  ihe  range  of  flow  settings  was  changed.  The  minimal  flow 
setting  was  0.6  m  s  while  the  maximum  flow  setting  was  2.0  m's.  The  reasons  for  this 
change  are  discussed  in  “3.  Enhancement  of  Outside  Heat  Transfer  Coefficient.”  on 
page  30. 

2.  Single  Tube  Experiments 

After  completion  of  the  tube  bundle  runs,  the  experiment  was  repeated  for  each 
individual  tube  starting  with  the  lowest  tube  (tube  D).  Flow  through  the  tubes  above  the 
test  tube  was  stopped  and  flow  through  the  tube  of  interest  was  set  for  a  velocity  of  0.2 
m  sec.  The  vapor  pressure  w'as  again  maintained  using  an  auxiliary'  condenser  coil. 
During  this  time,  the  upper  tubes  were  continuously  observed  for  condensate  formation. 
No  single  tube  data  was  obtained  until  condensate  formation  on  the  upper  tubes  had 
ceased.  This  typically  required  twenty  to  thirty  minutes. 

Once  the  coolant  temperature  rise  had  stabilized,  a  data  set  was  obtained.  Fol¬ 
lowing  this,  the  coolant  flow  rate  w'as  increased  in  0.1  m/s  increments  up  to  the  maxi¬ 
mum  flow  velocity.  A  data  set  was  obtained  at  each  flow  velocity.  Throughout  the 
experiment,  tubes  above  the  test  tube  w'cre  visually  monitored  to  ensure  that  no 
condensate  formation  occurred.  The  flow  velocity  was  then  decreased  in  0.1  m's  incre¬ 
ments  down  to  the  minimum  coolant  flow  velocity,  with  a  data  set  obtained  at  each  flow 
velocity.  This  procedure  was  repeated  for  each  test  condenser  tube  in  the  bundle. 

B.  SPECIFIC  EXPERIMENTS 
1.  Baseline  Experiments 

The  purpose  of  the  baseline  experiments  was  to  validate  the  performance  of  the 
condenser/evaporator  test  platform  by  comparing  data  to  that  of  .Mabrey  [Ref  2].  These 
initial  baseline  experiments  were  performed  using  smooth  copper  tubes  (inside  diameter 
of  13.26  mm  ,  outside  diameter  of  15.88  nrun,  thermal  conductivity  of  386  W/m  K).  The 
condensing  length  of  the  tubes  was  1.219  m.  Tiie  tubes  were  supplied  by  Wolverine  Tube 
Co. 
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2.  Enhancement  of  Inside  Heat  Transfer  Coefficient 

The  main  purpose  of  this  study  was  to  obtain  accurate  values  of  the  outside  heat 

transfer  coefficient,  h,.  In  order  to  obtain  accurate  values  for  A.,  the  resistance  to  heat 

t  ^nsfer  on  the  inside  of  the  tube  -7^  needs  to  be  minimized.  The  reason  that  this  re- 

h,A, 

sistance  must  be  minimized  is  that  if  the  inside  resistance  is  a  large  pan  of  the  overall 
vapor-to-coolant  resistance,  then  will  be  become  inaccurate.  In  order  to  minimize  the 
inside  resistance,  one  must  enhance  tiiC  inside  heat  transfer  coefficient. 

The  inside  heat  transfer  coefficient  is  influenced  by  the  type  of  coolant  flow 
through  the  tubes.  In  the  test  platform,  the  coolant  is  a  54.'46  percent  (by  weight) 
ethylene  glycol/water  mixture.  At  temperatures  below  0  °C,  this  fluid  is  extremely 
^’iscous  with  Reynolds  numbers  in  the  range  of  300  to  2800,  suggesting  laminar  flow. 
When  the  coolant  flow'  is  laminar,  the  inside  heat  transfer  coefficient  is  low.  How'ever, 
if  this  laminar  flow  can  be  mixed,  then  the  inside  resistance  can  be  decreased  and  the 
heat  transfer  coefficient  increased.  This  can  be  accomplished  through  the  use  of  radial 
mixing  elements.  Radial  mixing  elements  have  the  effect  of  mixing  the  thermal  boundary 
layer  (formed  on  the  inside  of  the  tube)  with  the  colder  core  flow  thereby  improving  heat 
transfer.  It  should  be  noted  that  a  penalty  in  using  such  elements  is  an  increased  pres¬ 
sure  drop  which  must  always  be  kept  in  mind  in  practical  applications.  How'ever,  for  the 
purposes  of  this  study,  increased  pressure  drop  was  not  important. 

In  this  thesis,  two  types  of  mixing  elements  w'ere  investigated.  The  first  w’as  a 
tw'isted  tape  insert  made  of  copper  [Ref  47,48).  This  tape  insert  had  a  thickness  of  0.559 
mm  with  a  pitch  for  a  180  degree  twist  of  three  times  the  inner  tube  diameter. 

The  second  type  of  insert  used  in  this  study  was  a  commercially  available  prod¬ 
uct  referred  to  as  HE.ATEX  radial  mi.xing  elements. 3  These  elements  are  manufactured 
from  stainless  steel  and  consist  of  a  number  of  small  flexible  loops  (petals)  of  steel  wire 
attached  to  a  central  wire  cort  These  flexible  petals  are  placed  in  the  tube  such  that  they 
face  the  oncoming  flow'.  Their  outside  diameter  is  slightly  larger  than  the  inside  diameter 
of  the  tube  and  are  therefore  kept  in  position  with  a  "pinch"  fit.  The  petals  disturb  the 
thermal  boundary'  layer  and  promote  fluid  mixing.  Figure  4  shows  the  two  types  of  in¬ 
serts.  It  should  be  noted  that  two  different  sizes  of  HEATEX  were  used  since  condenser 
tubes  of  two  different  inside  diameters  were  examined. 


3  manufactured  by  CAL  GAVIN  Birmingliam,  England. 
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Figure  4.  Twisted  tape  insert  and  HEATEX  radial  mixing  element. 
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As  part  of  the  baseline  experiments,  the  smooth  copper  tubes  were  also  tested 
with  no  insert  installed.  Experiments  were  repeated  on  the  smooth  copper  tubes  using 
the  twisted  tape  inserts  as  well  as  the  HEATEX  elements.  Tliis  data  was  then  used  as  a 
baseline  for  comparison  with  other  types  of  condenser  tubes.  It  should  be  mentioned 
that  when  no  insert  is  present,  the  inside  tube  resistance  to  heat  transfer  is  verj'  large 
relative  to  the  outside  resistance.  In  some  cases  (typically  when  the  coolant  flow’  rate  is 
low),  this  can  produce  a  negative  value  for  the  outside  heat  transfer  coefficient.  This  is 
simply  the  inaccuracy  in  the  calculation  of  when  the  inside  resistance  dominates  and 
clearly  demonstrates  the  need  for  an  insert  as  mentioned  above. 

3.  Enhancement  of  Outside  Heat  Transfer  CoefTicient. 

The  overall  heat  transfer  coefficient,  (/„  is  influenced  by  the  outside  as  well  as 
the  inside  heat  transfer  coefficient.  The  means  by  which  the  outside  heat  transfer  coeffi¬ 
cient  is  enhanced  is  by  altering  the  outside  geometry  of  the  condenser  tube. 

Experiments  to  investigate  enhancement  of  the  outside  heat  transfer  coefficient 
utilized  three  types  of  condenser  tubes.  The  first  type  of  tube  tested  was  a  copper/nickel 
finned  tube  (26  fins'inch).  This  tube  has  an  inside  diameter  of  10.16  mm  tvith  a  thermal 
conductivity  of  43  W/m  K.  The  tubes  were  manufactured  by  Wolverine  Tube  Co.  These 
tubes  were  tested  as  a  tube  bundle  as  well  as  individually.  Experiments  were  performed 
w'ith  no  insert  as  well  as  with  the  twisted  tape  and  HEATEX  inserts.  These  tubes  are 
sho^vn  in  Figure  5.  One  point  must  be  mentioned  with  regard  to  the  finned  tubes.  The 
use  of  fins  on  the  outside  of  the  tube  enhances  the  heat  transfer  considerably.  Conse¬ 
quently,  the  inside  resistance  again  becomes  a  large  fraction  of  the  overall  resistance, 
even  when  inserts  are  used. 

One  additional  point  must  be  discussed  wth  regard  to  the  copper/nickel  finned 
tubes.  Because  the  size  of  the  holes  in  the  nylon  end  plates  is  fixed,  the  outside  diameter 
of  any  tubes  to  be  tested  must  be  the  same.  In  order  to  have  these  finned  tubes  the  same 
outside  diameter,  the  inside  diameter  had  to  be  reduced.  Since  the  inside  tube  diameter 
was  smaller  for  the  finned  tubes,  higher  coolant  velocities  were  obtained. 

The  second  scries  of  experiments  used  a  copper/nickel  KORODENSE  tube  also 
manufactured  by  Wolverine  Tube  Co.  This  tube,  shown  in  Figure  5,  has  a  shallow  spiral 
groove  along  the  entire  condensing  length  with  a  pitch  of  10  mm.  As  w'ith  the  finned 
copper/nickel  tubes,  experiments  were  performed  on  these  KORODENSE  tubes  with  no 
insert  as  well  as  with  the  twisted  tape  and  HEATEX  inserts.  The  tubes  were  tested  in  a 
tube  bundle  as  well  as  individually. 
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Fujii  and  co-workers  [Ref.  33)  have  previously  shown  that  the  condensation  of 
refrigerants  can  be  enhanced  by  wrapping  smooth  condenser  tubes  with  a  small  diameter 
wire.  Therefore,  a  third  series  of  experiments  were  performed  in  which  copper/nickel 
KORODENSE  tubes  were  tightly  wound  with  wire  as  shown  in  Figure  5.  Since  these 
authors  showed  that  there  was  an  optimum  wire  size  which  gave  the  greatest  enhance¬ 
ment  of  heat  transfer  (0.5  mm  at  a  pitch  of  3  mm),  the  KORODENSE  tubes  used  in  this 
study  were  wrapped  with  one  of  three  different  sizes  of  wire.  The  sizes  used  were  0.029" 
(0.736  mm)  diameter  stainless  steel  wire,  0.049"  (1.244  mm)  diameter  stainless  steel  wire, 
and  0.0675"  (1.715  mm)  diameter  copper  wire.  The  wire  lay  in  the  shallow  grooves  of  the 
KORODENSE  tubes  and  was  soldered  to  the  tubes  at  the  ends  only.  Although  the  wire 
was  tightly  wrapped  around  the  tubes,  it  was  not  physicaUy  attached  except  at  the  ends. 
Experiments  were  carried  out  on  each  tube  individually.  Each  tube  was  tested  in  all  four 
locations  within  the  bundle.  This  was  done  to  see  if  position  within  the  bundle  (i.e.  wake 
from  tubes  above)  had  any  effect.  Only  the  HEATEX  inserts  were  used  with  these  tubes. 

Once  an  optimal  wire  diameter  was  determined,  a  fourth  series  of  experiments 
was  conducted.  This  series  used  the  same  four  KORODENSE  tubes,  only  this  time  each 
was  wrapped  with  the  same  optimal  diameter  wire.  The  tests  were  done  with  the 
HEATEX  elements  installed.  Experiments  were  conducted  on  the  tubes  individually  in 
order  to  compare  with  the  previously  obtained  single  tube  data  In  addition,  these  wire 
wrapped  tubes  were  tested  as  a  tube  bundle  in  order  to  investigaie  whether  or  not  the 
wire  wrap  had  any  effect  on  condensate  innundation. 
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Figure  5.  Copper/niekel  finned  tube,  Korodense  tube,  Wire  wrapped  tube. 
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V.  DATA  REDUCTION 


A.  DATA  ACQUISITION 

The  data  acquisition  system  consisted  of  a  Hewlett-Packard  series  9000  computer 
coupled  with  a  Hewlett-Packard  model  3479A  Data  Acquisition  system.  The  computer 
program  used  in  this  study  was  origin^  ly  written  by  Mabrey  [Ref.  2]  but  has  been  sub¬ 
stantially  modified  in  the  course  of  this  thesis.  The  data  acquisition  thermocouple 
channel  assignments  are  shown  in  Tab^e  1. 


Table  1.  THERMCOUPLE  CHANNEL  ASSIGNMENTS. 


Channel 

Temperature  Measured 

0 

Vapor  (condenser  top) 

1 

Vapor  { -ondenser  top) 

— 2 

Vapor  (top  of  liquid) 

3 

Liquid  (top  of  bundle) 

4 

Liquid  (top  of  bundle) 

5 

Liquid  (bottom  of  pool) 

6 

Inlet  tube  1 

7 

Inlet  Tube  2 

8 

Inlet  Tube  3 

9 

Inlet  Tube  4 

10.  11 

Outlet  Tube  1 

12,  13 

Outlet  Tube  2 

14,  15 

Outlet  Tube  3 

16,  17 

Outlet  Tube  4 

The  computer  pr'rrram  allows  the  user  to  acquire  data,  reprocess  data,  or  plot  data. 
During  data  acquisii  the  user  selects  the  fiuid  velocity  desired.  Based  on  coolant  inlet 
temperature,  the  coolant  fluid  properties  and  mass  flow  rates  are  calculated  (see  Ap¬ 
pendix  C).  The  program  then  uses  equations  derived  from  the  flowmeter  calibrations 
(Appendix  A)  in  order  to  calculate  the  appropriate  flowmeter  settings. 

Once  the  flowmeters  are  set  for  the  required  coolant  velocity,  the  computer  system 
displays  the  vapor  temperature  at  the  top  and  bottom  of  the  condenser  as  well  as  the 
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coolant  temperature  rise  for  each  condenser  tube.  When  these  temperature  rises  are 
stable  (approximately  10  minutes),  the  user  can  terminate  the  display  and  acquire  the 
data  for  that  coolant  flow  velocity.  While  the  temperature  rises  were  stabilizing,  coolant 
flow  through  an  auxiliary  condenser  tube  was  adjusted  in  order  to  maintain  constant 
pressure. 

B.  DATA  REDUCTION 

The  main  function  of  the  data  reduction  section  of  the  computer  program  is  to  back 
out  the  outside  heat  transfer  coefficient  from  an  experimentally  determined  value  of  U, 
and  an  assumed  inside  heat  transfer  coefficient  correlation.  This  is  accomplished  in  the 
following  manner. 

The  data  acquisition  system  measures  the  emf  from  the  thermocouples  listed  in  Ta¬ 
ble  1.  These  values  of  emf  are  converted  to  temperatures  using  correlations  obtained 
from  the  temperature  calibrations  both  contained  in  Appendix  B.  The  volume  flow  rate 
of  the  ethylene  glycol/water  mixture  is  calculated  based  on  the  desired  coolant  velocity. 
The  density,  dynamic  viscosity,  thermal  conductivity,  heat  capacity,  and  Prandtl  number 
of  the  coolant  are  calculated  using  inlet  temperatures  (see  Appendix  C  and  Appendix 
E).  From  these  quantities,  the  coolant  mass  flow’  rate  and  fluid  velocity  are  calculated. 
The  coolant  Reynolds  number  for  each  condenser  tube  is  also  calculated.  The  heat 
transferred  to  the  coolant  is  then  found  from 


q  =  thCpAT 


(5-1) 


w’here  m  is  the  mass  flow  rate  and  AT  is  the  coolant  temperature  rise.  The  outside  heat 
flux,  q'\  is  calculated  by  dividing  q  by  the  surface  area  of  the  tube  based  on  the  outside 
tube  diameter. 

The  overall  heat  transfer  coefficient,  Ug,  is  given  by: 


LMTD 


(5-2) 


where  LMTD  is  the  log  mean  temperature  difference  defined  as: 


LMTD  = 


AT 


(5-3) 
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The  inside  heat  transfer  coefllcient  (given  as  a  dimensionless  Nusselt  number,  Nu,) 
can  then  be  calculated  using  one  of  three  correlations.  The  choice  of  which  correlation 
to  use  depends  upon  the  type  of  insert  installed  inside  the  condenser  tube.  If  no  insert 
is  installed,  then  Nu,  can  be  calculated  from  a  correlation  provided  by  Hausen  [Ref 
49]*  for  developing  laminar  flow  in  a  tube  at  constant  wall  temperature. 


Nu,  =  3.66  + 


0.0668(  Y 


1  +  0.04 


[■^ye„,Pr, 


0.666 


(5-4) 


If  a  twisted  tape  insert  is  installed,  a  correlation  given  by  Hong  and  Bergles  [Ref 
47]  can  be  used  to  calculate  Nu,  W'here 


Nu,  =  5.172 


1  +  5.484jcl0”^?r°  ’ 


>•  ) 


(5-5) 


Here,  y  is  the  twist  ratio  (pitch  over  diameter).  Re,  is  the  coolant  Reynolds  number, 
corrected  for  tape  thickness.  Re,  is  given  by; 


Re, 


4m 


itn(di  -  4(5) 


(5-6) 


where  S  is  the  tape  thickness.  This  correlation  is  valid  for  Re,  up  to  about  2300. 

A  number  of  correlations  for  determining  the  inside  heat  transfer  coefficient  have 
been  published  when  using  a  wire  matrix  insert  [Ref  50,51,52,  53  ].  How'ever,  these 
correlations  are  specific  for  the  type  of  mixing  element  used,  and  are  especially  depend¬ 
ent  upon  the  loop  density  of  the  wire  matrix. 

The  HEATEX  mixing  elements  supplied  by  CAL  GAVIN  (nominal  diameters  of 
13.26  and  10.16  mm)  did  not  match  the  loop  densities  used  by  previous  investigators. 
How'ever,  CAL  GAVIN  did  supply  experimental  data  for  the  heat  transfer  coefficient 
versus  fluid  velocity  at  three  different  temperatures  for  both  sizes  of  elements.  To  con¬ 
vert  this  data  into  a  usable  correlation,  the  follow'ing  procedure  was  developed. 


*  Calculations  were  performed  for  coolant  flow  through  the  smooth  copper  tubes  at  coolant 
velocities  of  0.2  and  1.2  m/s.  These  calculations  confirmed  the  coolant  flow  was  not  fully  devel¬ 
oped. 
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The  correlations  of  Oliver  and  Aldington  [Ref.  51,  52  ]  took  the  form  of 

Nu  =  (5  -  7) 

where  c,  m,  and  n  are  arbitrary  constants  which  are  dependent  upon  the  type  of  insert 
used.  It  was  assumed  that  a  similar  type  of  equation  could  be  used  in  the  present  study 
by  fitting  the  constants  to  the  data  (once  non-dimensionalized)  provided  by  CAL 
GAVIN. 

The  correlations  of  Ohver  and  Aldington  [Ref.  51,  52  )  had  Prandtl  number  raised 
to  a  power  of  0.46.  This  was  primarily  to  take  into  account  temperature  effects.  There¬ 
fore,  the  same  value  was  assumed  in  the  present  study.  Values  of  Nu/Pr®-^  were  plotted 
as  functions  of  Re  on  a  log-log  basis.  Figure  6  shows  the  data  obtained  for  the  13.26 
mm  elements  while  Figure  7shows  the  data  obtained  for  the  10.16  mm  elements.  Based 
on  the  appearance  of  the  non-dimensionalized  data,  a  least  squares  linear  regression  was 
performed  on  each  data  set.  The  figures  yield  the  values  of  the  constants  m  and  c  (slope 
and  intercept  respectively)  and  provide  the  following  correlations  for  the  13.26  and  10.16 
mm  elements  respectively: 

Nu,  =  0.226Rc°-^^?r°-^^  (5  -  8) 

and 

Nu,  =  0.065i?c°  ’Vr°'‘^  (5  -  9) 

Once  Nu,  was  obtained  from  equations  (5-4,  5-5  5-8  or  5-9),  the  inside  heat  transfer 
coefficient  was  calculated  from: 


HEATEX  CORRELATION  (13.26  MM) 


NU  =  0.226(RE**.65)(PR**.46) 


o  =  T  =  -10  C 
A  =  T  =  -20  C 


icT 

RE 


HITRAN  correlation  for  13.26  mm  elements 


HEATEX  CORRELATION  (10.15  MM) 


NU  =  0.067(RE**  76)(PR**.46) 


RE 


Figure  7.  HITRAN  correlation  for  10.16  mm  elements 
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The  overall  heat  transfer  coefTicient,  (/,  is  found  from  the  summation  of  resistances 
to  heat  transfer  across  the  whole  tube: 


1 

^0^0 


(5-11) 


where  and  R^  are  the  fouling  and  wall  resistances  respectively.  In  order  to  find  h, 
equation  (5-11)  can  be  rearranged  to  give: 


ho  = 


_ 1 

-Rw^o  ~  ~  T" 


(5-12) 


In  all  experiments,  the  tubes  were  meticulously  cleaned  and  therefore,  the  fouling  re¬ 
sistance,  Rf,  was  neglected. 

In  order  to  better  assess  the  calculated  experimental  value  of  the  outside  heat 
tran^r  coefficient,  some  form  of  comparison  wth  prediction  must  be  made.  In  this 
case,  the  experimentally  obtained  value  of  /t,  was  compared  with  Nusselt  thcor>’.  How¬ 
ever,  because  the  wall  temperatures  are  not  known  a  priori,  an  iteration  must  be  used 
to  determine  this  predicted  value  of  h^.  An  initial  value  of  was  estimated  and  based 
on  this  estimate,  a  wall  temperature  was  calculated  using  the  equation: 


T^wall— 


sat 


(5-13) 


The  condensate  film  properties  are  then  calculated  using  a  reference  temperature  given 
by: 


'Rfitm  —  ^  T^sat  3 


wall 


(5-14) 


Once  these  condensate  fluid  properties  are  known  (Appendix  D),  the  theoretical  outside 
heat  transfer  coefficient  can  be  calculated  from  Nusselt  theoiy’  [Ref  4]: 


=  0.655 


0 


(5-15) 


This  calculated  value  is  then  compared  to  the  initial  guess.  The  error  between  the  initial 
guess  and  the  calculated  value  are  compared.  If  the  error  is  greater  than  0.1%,  the 
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"guessed"  value  for  h,  is  updated  and  the  iteration  continued.  This  process  is  repeated 
until  the  error  between  the  calculated  and  guessed  values  is  less  than  0.1%. 

C.  MODIFIED  WILSON  PLOT 

The  outside  and  inside  heat  transfer  coefficients  could  be  determined  directly  by 
measuring  the  vapor  temperature,  the  tube  wall  temperature,  and  the  coolant  temper¬ 
ature  rise.  Of  these,  the  most  difficult  temperature  to  measure  directly  is  the  tube  wall 
temperature.  This  would  require  the  use  of  instrumented  tubes  with  thermocouples  em¬ 
bedded  in  the  tube  wall.  Unfortunately,  the  manufacture  of  such  instrumented  tubes  is 
both  costly  and  time  consuming,  especially  w^hen  large  numbers  of  tubes  are  to  be  tested. 

An  alternative  to  the  use  of  instrumented  tubes  is  to  employ  the  "Modified  Wilson 
Plot"  procedure.  This  procedure  has  been  outlined  in  detail  by  Marto  [Ref  10].  The 
modified  Wilson  plot  procedure  relies  upon  the  overall  heat  transfer  coefficient  being 
reliably  measured  from  experimental  data.  A  summation  of  heat  transfer  resistances 
from  vapor-to-coolant  is  then  expressed  as; 

As  mentioned  above,  the  fouling  resistance  is  assumed  to  be  negligible.  This  summation 
of  resistances  can  be  rearranged  into  a  linear  equation: 


In  looking  at  the  correlations  given  above  for  /i„  and  h„  it  can  be  seen  that  they  all 
employ  a  leading  coefficient.  As  an  example,  Nusselt  theory,  (equation  5-15)  can  be  ex¬ 
pressed  in  the  form: 


h„  =  a.F 


(5-18) 


where: 


o 


(5  -  19) 


In  a  similar  manner,  the  equations  for  the  inside  heat  transfer  coefficients  (equations  5-4, 
5-5,  5-8,  and  5-9)  can  also  be  transformed  into  the  form: 
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hi  =  CO. 


(5-20) 


where  the  form  of  Q  would  depend  on  which  type  of  tube  inseu  was  being  used.  As  an 
example,  using  equation  5-5,  Q  would  become: 


1  -I-  5.4S4xlO~Vr° 


Re^ 

"T" 


1.25' 


0.5 


(5-21) 


The  linearized  version  of  the  summation  equation  (equation  5-17)  can  then  be  rear¬ 
ranged  to  give: 


-  Ry^o 


CQAi  « 


(5-22) 


This  is  a  linear  equation  with  two  unknowns,  namely,  C  and  a  .  Letting 


Y  = 


77"  - 

L 


(5-23) 


and 


X  = 


M. 

AiO. 


we  can  obtain  a  simplified  linear  equation: 

Y=mX+b 


(5-24) 


(5-25) 


where 


m  = 


]_ 

C 


and 


(5-26) 


(5-27) 


Since  and  F  are  both  temperature  dependent,  an  iterative  solution  procedure  must  be 
used.  This  is  accomplished  by  applying  a  least  squares  fit  to  the  linear  equation. 

It  should  be  pointed  out  that  the  accuracy  of  the  modified  Wilson  plot  procedure 
relics  heavily  on  the  number  of  data  points  taken  as  well  as  the  range  of  coolant  veloci¬ 
ties  used. 
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VI.  RESULTS  AND  DISCUSSION 


A  summary  of  the  experimental  runs  performed  in  this  thesis  is  presented  in 
Table  2.  The  ac'.r /  iation  "SM"  is  for  the  smooth  copper  tubes,  "KD"  is  for  the 
KORGDENSE  tubes,  and  "CF"  is  for  the  copper, 'nickel  finned  tubes. 


Table  2.  SUMMARY  OF  EXPERIMENTAL  RUNS 


Data  Set 

Tube  type 

Insert 

SMOl 

Copper 

Tape 

SM02 

Copper 

Tape 

SM03 

Copper 

HEATEX 

S.MOS 

Copper 

HEATEX 

SM06 

Copper 

HEATEX 

S.V107 

Copper 

Tape 

KDOl 

KORODENSE 

Tape 

KD02 

KORODENSE 

None 

KD03 

KORODENSE 

HEATEX 

KD04 

KORODENSE 

Tape 

KD05 

KORODENSE 

HEATEX 

KD06 

KORODENSE 

HEATEX 

KD07 

KORODENSE 

HEATEX 

KD08 

KORODENSE 

HEATEX 

KD09 

KORODENSE 

HEATEX 

KDIO 

KORODENSE 

HEATEX 

KDll 

KORODENSE 

HEATEX 

KD12 

KORODENSE 

HEATEX 

CFOl 

Cu/Ni  fin 

Tape 

CF02 

Cu/Ni  fin 

Tape 

CF03 

Cu'Ni  fin 

Tape 

CF04 

Cu'N'i  fin 

HEATEX 

CF05 

Cu;N‘i  fin 

None 

Comments 


Test  run 


Test  run 


Test  HEATEX  correlation 


Tube  A  insert  bad 


1st  test  of  KORODENSE 


Wire  wapped 


Wire  wrapped 


Wire  wrapped 


Wire  wrapped 


0.049"  Wire,  bad  insert 


0.049"  Wire 


0.049"  Wire 


0.049"  Wire 


dropwise  condensation 


Test  run 


A.  DECONTAMINATION 


Prior  to  charging  the  system  with  R-1 13,  the  system  w'as  evacuated  to  approximately 
15  inllg  ard  left  for  24  hours.  For  this  initial  test,  smooth  copper  tubes  were  used.  The 
ethylene  glycol  coolant  pumps  were  energized  and  flow  started  through  the  test 
condenser  tubes.  The  temperature  of  the  ethylene  glycol  was  -IS'C.  No  condensation 
was  seen  on  any  tubes.  In  addition,  the  orange  peel  appearance  noted  by  Mabrey  (Ref. 
2]  was  not  observed. 

After  checking  the  evacuated  system  for  possible  contamination,  the  test  platform 
w’as  charged  with  fresh  R-1 13.  Coolant  flow  was  again  started.  No  orange  peel,  or 
dimpled  appearance  could  be  seen  on  the  top  condenser  tube. 

Power  (~  20  kW)  was  applied  to  the  heaters  while  the  coolant  temperature  was 
raised  to  ~  0°C.  An  orange  peel  appearance  was  noted  for  the  top  tube.  Measurements 
of  the  vapor  temperature  at  the  top  and  bottom  of  the  condenser  showed  approximately 
a  20  "C  differential. 

A  vacuum  pump,  connected  to  the  top  of  the  condenser,  was  used  to  remove  any 
noncondensible  gases.  When  this  was  done,  the  temperature  differential  decreased  to  less 
than  0.5° C.  The  orange  peel  appearance  quickly  disappeared  from  the  top  condenser 
tube.  This  suggests  that  at  least  part  of  the  contamination  problem  reported  bv  Mabrev 
was  due  to  the  presence  of  noncondensibles. 

In  a  subsequent  series  of  experiments  conducted  on  a  set  of  titanium  finned  tubes, 
a  foreign  substance  appeared  to  build  up  on  the  tubes  during  the  experimental  run.  This 
occurred  despite  continuous  operation  of  the  vacuum  pump.  The  tubes  were  removed 
from  the  condenser  and  inspected.  The  foreign  material  had  an  oily  feel  to  it  and  an  odor 
similar  to  that  of  ethylene  glycol. 

The  titanium  finned  tubes  had  smooth  extensions  (6"  in  length)  attached  to  their 
ends  using  epo.xy.  These  extensions  penetrated  the  nylon  block  and  steel  plate  and  pro¬ 
vided  the  smooth  surface  necessary  for  the  O-rings  to  give  an  airtight  seal  between  the 
condenser  and  the  atmosphere.  When  these  tubes  w'cre  removed  from  the  condenser,  it 
was  noted  that  the  extensions  on  two  of  the  tubes  had  come  loose.  The  condenser  was 
opened  for  inspection.  Upon  removal  of  the  end  plate  and  shroud  assembly,  pools  of 
ethylene  glycol  w-cre  seen  inside  the  condenser  shell  and  on  the  auxiliary  condenser  tubes. 
In  addition,  ethylene  glycol  was  found  around  the  shroud  assembly.  The  entire 
condenser  and  evaporator  assembly  were  therefore  dismantled  and  eleaned  in  aceordance 
with  the  procedures  outlined  in  "Experimental  Apparatus". 
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After  reassembly  of  the  condenser  and  evaporator,  the  smooth  copper  tubes  were 
cleaned  and  reinstalled.  Operation  of  the  test  platform  failed  to  show  any  orange-peel 
or  dimpled  appearance  on  the  tubes.  In  addition,  all  tubes  demonstrated  good  filmwise 
condensation. 

It  should  be  mentioned  that  in  subsequent  tests,  copper/nickel  finned  tubes  were 
installed  in  the  condenser.  However,  unlike  the  titanium  finned  tubes,  the  smooth  ex¬ 
tensions  on  these  tubes  were  soldered.  During  system  operation,  no  foreign  material 
was  noted  between  the  fins.  Condensate  retention  between  the  fins  was  negligible.  The 
tubes  demonstrated  good  film  wise  condensation. 

In  summary,  it  is  believed  that  the  contamination  problems  noted  by  Mabrev  jRef. 
21  were  due  to  two  problems.  The  first  problem  was  the  presence  of  noncondensibles 
during  operation  of  the  condenser.  This  resulted  in  the  relatively  low  values  for  overall 
heat  transfer  as  well  as  the  fact  that  the  top  tube,  which  would  be  most  affected  bv  the 
noncondensibles,  had  the  lowest  heat  transfer.  Secondly,  while  it  can  not  be  proved 
conclusively,  the  author  believes  that  ethvlcnc  glycol  may  also  have  been  present  in  the 
system  for  certain  tubes  and  that  this  is  what  was  the  material  noted  in  between  the  fins 
bv  Mabrev. 

B.  OVERALL  HEAT  TRANSFER  COEFFICIENT 

In  the  following  sections,  the  results  pertaining  to  the  overall  heat  transfer  coclfi- 
cient  are  presented.  It  is  important  to  keep  in  mind  that  this  value  is  experimentally  de¬ 
termined  and  does  not  rely  on  any  correlations  other  than  for  the  fluid  properties.  In 
addition,  it  should  be  mentioned  that  in  the  following  graphs,  tube  A  is  the  top  tube  in 
the  bundle,  tube  B  the  second,  tube  C  the  third,  and  tube  D  the  bottom  tube. 

1.  Smooth  Copper  Tubes 

Figure  8  shows  the  overall  heat  transfer  coefficient,  h\,  plotted  as  a  function 
of  coolant  velocity.  The  tubes  did  not  contain  any  inserts.  Note  the  low  values  for  U,. 
These  values  are  almost  constant  for  velocities  over  the  range  of  0.2  to  0.7  m/s.  In  this 
series  of  experiments,  Reynolds  numbers  w'ere  typically  of  the  order  of  300  to  2300  in¬ 
dicating  that  flow  is  laminar.  Without  any  insert  to  promote  mixing,  one  would  there¬ 
fore  expect  relatively  low  values  for  L\  .  This  is  because,  in  laminar  flow,  the  inside 
resistance  to  heat  transfer  is  relatively  large  and  therefore  leads  to  a  lower  value  for  heat 
transfer.  Finally,  there  is  essentially  no  difference  between  the  tubes  at  low  coolant  ve¬ 
locities.  This  suggests  that  with  these  relatively  low  condensation  rates,  inundation  is  not 
a  significant  factor.  At  higher  flow  rate,  it  can  be  seen  that  the  values  for  heat  transfer 
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start  increasing  and  that  difierences  between  the  tubes  become  more  apparent.  As 
coolant  velocity  is  increasing,  flow  is  beginning  to  become  turbulent.  This  reduces  the 
inside  resistance  to  heat  transfer  which  leads  to  an  increase  in  the  overall  heat  transfer. 
As  heat  transfer  increases,  the  effects  of  inundation  become  more  apparent.  This  is  pre¬ 
sumably  due  to  the  outside  resistance  becoming  more  important  as  the  inside  resistance 
becomes  less  important. 

The  results  obtained  when  these  smooth  copper  tubes  were  tested  individually 
is  shown  in  Figure  9.  Here,  all  the  tubes  behave  similarly.  In  addition,  comparison  with 
Figure  8  shows  that  the  values  of  for  the  tubes  when  tested  individually  are  approx¬ 
imately  the  same  as  for  the  top  tube  during  the  bundle  run  as  one  would  expect. 

The  results  for  the  same  run  with  tape  inserts  installed  are  shown  in  Figure  10. 
It  can  be  seen  that  L\  increases  as  coolant  velocity  increases.  The  values  are  clearly 
greater  than  when  no  insert  is  used  (approximately  50%  greater)  indicating  the  advan¬ 
tage  gained  when  enhancing  the  inside  heat  transfer  coefficient  in  situations  where 
coolant  flow  is  laminar.  The  effect  of  condensate  inundation  on  the  overall  heat  transfer 
coefficient  is  also  clearly  seen.  Here,  condensate  inundation  results  in  approximately  a 
15%  decrease  in  U,  when  the  top  tube  is  compared  to  the  second  tube.  Interestingly, 
there  appears  to  be  little  difference  in  the  values  for  I4  for  tubes  B,  C,  and  D  indicating 
that  the  condensate  film  is  of  similar  thickness  for  these  tubes.  The  data  for  a  similar 
run  performed  by  Mabrey  [Ref  2]  is  shown  in  Figure  11.  The  data  obtained  in  the 
present  study  is  almost  twice  the  values  reported  by  Mabrey.  In  addition,  the  present 
data  shows  that  the  top  tube  has  the  highest  heat  transfer  which  is  to  be  expected  as¬ 
suming  noncondensibles  are  not  present.  This  was  not  the  case  in  Mabrey's  work. 

The  results  for  these  same  tubes  when  operated  individually  are  shown  in 
Figure  12.  All  the  curves  are  essentially  the  same  with  values  for  U,  corresponding  to 

that  obtained  for  the  top  tube  during  the  bundle  run.  The  maximum  variation  is  about 

1  '>0' 
i  Z  /O. 

The  next  series  of  experiments  were  performed  on  the  smooth  copper  tubes  with 
the  HEATEX  elements  installed.  Figure  13  shows  the  results  of  these  experiments  when 
the  tubes  were  operated  as  a  bundle.  As  with  the  experiments  performed  with  the 
twisted  tape  inserts,  there  is  an  increase  in  b\  as  coolant  velocity  is  increased.  In  this 
case  the  increase  is  100%  in  comparison  to  the  case  with  no  insert!  Also,  as  in  the  pre¬ 
vious  experiment,  condensate  inundation  appears  to  result  in  about  a  15%  decrease  in 
U,  for  the  second  tube  compared  to  the  top  tube.  There  appears  to  be  little  difference 
in  the  heat  transfer  coefficients  for  tubes  B,  C,  and  D,  although  some  effect  may  be  ar- 
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gued  at  the  higher  coolant  velocities.  This  may  reflect  the  fact  that,  at  the  higher  coolant 
velocities,  the  inside  resistance  decreases  while  the  outside  resistance  increases  in  im¬ 
portance.  Anything  which  causes  further  increases  in  this  resistance,  such  as  condensate 
inundation,  may  cause  noticeable  effects  in  heat  transfer. 

As  before,  these  same  tubes  with  the  HEATEX  inserts  installed  were  tested  in¬ 
dividually;  the  results  are  shown  in  Figure  14.  The  values  of  t/,  for  all  four  tubes  are 
virtually  identical  and  match  the  values  for  the  top  tube  obtained  during  the  bundle  run 
(Figure  13).  The  values  appear  to  be  about  10%  greater  than  for  the  tape  insert  ex¬ 
periments  indicating  that  the  HEATEX  provides  better  tube-side  enhancement. 

While  the  preceding  figures  have  showm  the  effect  of  inserts  and  also  inundation 
on  the  heat  transfer  coeflicient,  two  important  questions  must  be  addressed.  First,  what 
is  the  uncertainty  associated  with  the  calculated  values  for  L\.  Secondly,  the  repeat¬ 
ability  of  the  data  must  also  be  examined. 

An  uncertainty  analysis  was  performed  on  V\  as  sho\vn  in  Appendix  F  based 
on  the  procedures  of  Khne  and  McClintock  [Ref  54].  At  the  low  coolant  velocities,  the 
uncertainty  was  5.2%.  This  uncertainty  was  based  primarily  on  the  uncertainty  in  the 
mass  flow  measurement.  Here,  one  must  include  a  scale  interpolation  term  as  well  as  a 
term  to  account  for  the  time-wise  jitter  for  the  flowmeter.  Since  the  flow  rate  is  low  for 
this  coolant  velocity,  these  two  terms  become  more  significant  than  at  the  higher  flow 
rates.  This  is  especially  true  if  the  magnitude  of  the  time-wise  jitter  is  the  same  for  all 
flow  rates  which  was  the  case  in  this  study. 

At  high  coolant  velocities,  the  uncertainty  in  the  value  for  U,  was  about  5.6%. 
Here,  the  major  factor  driving  this  value  is  the  uncertainty  in  the  determination  of  tem¬ 
perature.  The  reason  for  this  is  that  the  AT  between  the  tube  inlet  and  outlet  is  smaller 
than  for  low  coolant  velocities.  Since  the  relative  uncertainty  for  the  thermocouples  re¬ 
mains  the  same  regardless  of  coolant  velocities,  uncertainty  in  the  temperature  meas¬ 
urement,  specifically  the  LMTD,  becomes  the  driving  factor  in  determining  the 
uncertainty  in  V,. 

The  uncertainty  analysis  performed  here  was  onlv  for  the  overall  heat  transfer 
coeflicient.  U„.  In  this  analysis,  anv  uncertainty  in  the  correlations  used  to  determine  the 
physical  properties  of  the  ethvlene  clvcol  coolant  or  R-113  were  neglected.  Therefore, 
the  level  of  uncertainty  reported  here  is  slightly  con.servative. 

In  order  to  examine  the  reproducibility  of  the  data,  repeat  experiments  were 
performed  on  the  smooth  copper  tubes  with  the  HEa\TEX  elements  installed.  It  is  im¬ 
portant  to  mention  that  during  the  time  between  the  two  runs,  the  tubes  were  removed 
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from  the  condenser,  cleaned  and  reinstalled.  The  results  for  the  duplicate  experiment  are 
shown  in  Figure  15.  When  these  values  are  compared  to  Figure  13,  differences  of  the 
order  of  3°/o  is  seen  in  the  values  of  t/,  for  the  top  tube.  for  the  lower  tubes  are  slightly 
larger  with  a  more  pronounced  difference  between  the  tubes.  However,  these  differences 
all  lie  within  the  6%  uncertainty  band  indicating  that  the  system  gives  good 
reproducibility. 

In  a  similar  manner,  the  results  for  a  repeat  experiment  on  the  smooth  copper 
tubes  tested  individually  with  the  HEATEX  installed  is  shown  in  Figure  16.  When  the 
values  for  U,  shown  here  are  compared  with  those  showi  in  Figure  14,  no  significant 
differences  are  seen.  Again,  this  demonstrates  the  good  reproducibility  obtained  by  this 
system.  However,  a  word  of  caution  is  in  order.  In  all  the  expenments  reported  here, 
great  care  has  been  taken  to  control  as  manv  variables  as  possible.  Of  particular  im¬ 
portance  is  to  ensure  that  the  heater  power  levels  are  set  at  the  same  level  for  each  ex¬ 
periment.  This  will  tend  to  keep  vapor  velocity  in  the  condenser  at  similar  levels  for  each 
experiment  which  will  result  in  better  repeatability. 

The  effects  of  having  no  insert  as  opposed  to  the  twisted  tape  or  HEATEX  in¬ 
sert  is  shown  in  Figure  17.  In  this  figure,  the  values  for  U,  for  the  top  tube  only  have 
been  plotted  as  a  function  of  coolant  velocity  for  the  smooth  copper  tubes.  As  previously 
noted,  without  any  insert,  coolant  flow  is  laminar  and  U,  is  relatively  constant  up  to 
about  0.7  m  s.  When  either  the  twisted  tape  or  HEATEX  inserts  are  installed,  U,  in¬ 
creases  markedly  as  coolant  velocity  increases.  Interestingly,  the  HEATEX  results  in 
about  a  10  to  IA%  increase  in  Vg  when  compared  to  the  twisted  tape  inserts.  Hence, 
from  a  heat  transfer  standpoint,  the  HEATEX  element  is  the  better  insert.  This  is 
probably  because  the  wire  loops  which  make  up  the  insert,  touch  much  of  the  inside 
surface  of  the  tube  thereby  "scrapping"  the  thermal  boundary  layer  from  the  wall.  With 
the  twisted  tape  insert,  mixing  is  provided  only  by  inducing  swirling  which  is  probably 
not  as  an  effective  mechanism. 

2.  Copper/Nickel  KORODE.NSE  Tubes 

The  results  obtained  for  the  overall  heat  transfer  coefficient,  L\,  for 
KORODENSE  tubes  operated  as  a  bundle  are  shown  in  Figure  18.  This  series  of  ex¬ 
periments  was  performed  without  any  inserts  installed.  Note  the  similarity  between  these 
results  and  those  obtained  under  similar  conditions  with  the  smooth  copper  tubes  (Fig¬ 
ure  S).  Again,  values  of  L\  appear  relatively  constant  for  coolant  velocities  up  to  0.7 
m  s.  As  coolant  velocity  increases  further,  values  of  U,  increase  dramatically.  In  addi- 
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tion,  an  efTect  of  condensate  inundation  begins  to  be  apparent  at  these  higher  coolant 
velocities. 

Results  obtained  when  these  same  tubes  were  operated  individually  are  shown 
in  Figure  19.  Again,  when  there  is  no  inundation,  all  tubes  have  similar  behavior.  In 
addition,  the  values  obtained  here  match  those  obtained  for  the  top  tube  during  the 
bundle  experiment  (see  Figure  18).  Interestingly,  the  relative  magnitude  of  U,  is  re¬ 
markably  similar  to  that  obtained  for  the  smooth  copper  tubes  (Figure  9).  This  is 
somewhat  surprising.  The  KORODENSE  tubes  are  corrugated  on  both  the  inside  as  well 
as  the  outside.  Therefore,  one  would  have  expected  somewhat  higher  values  for  heat 
transfer  with  the  KORODENSE  than  with  the  smooth  copper  tube. 

Values  of  for  the  KORODENSE  tubes  with  the  twisted  tape  ins^.  ts  installed 
are  shown  in  Figure  20.  This  data  was  obtained  during  bundle  operation.  As  coolant 
velocity  increased,  (/„  increased  steadily.  This  was  true  for  all  four  tubes.  The  cfiect  of 
inundation  reduced  by  about  15%  (tube  B  relative  to  tube  A).  There  appeared  to  be 
more  separation  in  the  values  of  for  tubes  B,  C,  and  D  than  w'as  the  case  for  the 
smooth  copper  tubes  (see  Figure  10)  suggesting  a  greater  inundation  effect.  In  compar¬ 
ison  with  the  data  obtained  for  the  smooth  copper  tubes,  the  KORODENSE  tubes  re¬ 
sulted  in  a  slight  increase  (about  6  to  8%)  in  U,  This  difference  may  be  due  to  the  fact 
that  the  insert  reduces  the  inside  heat  transfer  resistance  so  that  the  accuracy  of  the 
measurement  is  improved. 

The  results  obtained  for  these  same  tubes  operated  individually  are  shown  in 
Figure  21.  As  expected,  all  four  tubes  behave  similarly  when  no  inundation  is  present. 
In  addition,  the  values  for  U,  match  those  obtained  for  the  top  tube  during  the  bundle 
operation  (Figure  20).  In  comparison  to  the  smooth  copper  tube  data  (Figure  12),  the 
data  for  the  KORODENSE  tubes  appears  somew'hat  higher  (about  6  to  8%).  However, 
given  the  known  uncertainty,  this  difference  is  probably  not  significant. 

Results  obtained  for  the  KORODENSE  tubes  during  bundle  operation  with  the 
HEATEX  elements  installed  are  shown  in  Figure  22.  Note  that  V,  again  increases 
markedly  for  all  four  tube  as  coolant  velocity  increases.  An  inundation  effect  can  be  seen 
for  tubes  B,  C,  and  D  which  is  similar  to  that  seen  in  the  twisted  tape  runs.  Tube  B 
show's  approximately  a  15%  decrease  in  compared  to  tube  A.  This  effect  is  magnified 
at  higher  coolant  velocities  (condensation  rates)  as  one  would  expect.  When  this  data  is 
compared  to  that  obtained  for  the  smooth  copper  tubes  w'ith  HEATEX  installed  (see 
Figure  13),  it  can  be  seen  that  L\  is  greater  for  the  KORODENSE  tubes.  This  suggests 
that  roping  of  the  tube  provides  some  enhancement  for  the  outside  (and  possibly  the 
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Figure  18.  KORODENSE  tubes  with  no  insert,  bundle  operation. 
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Figure  19.  KORODENSE  tubes  operated  individually,  no  inserts  installed. 
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Figure  20.  KORODENSE  tubes  with  tape  inserts,  bundle  operation. 
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Figure  21.  KORODENSE  tubes  «illi  tape  inserts,  individual  operation. 
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inside)  heat  transfer  coefficients.  While  we  expect  some  small  difference,  it  must  be 
pointed  out  that  the  differences  observed  here  are  at  the  bounds  of  the  calculated  un¬ 
certainty. 

Results  for  these  tubes  tested  individually  are  shown  in  Figure  23.  As  before, 
the  values  of  V,  are  similar  for  all  four  tubes  and  match  the  values  obtained  for  the  top 
tube  during  the  bundle  experiments  (see  Figure  22).  In  comparison  to  the  data  obtained 
for  the  smooth  copper  tubes,  the  values  of  b\  are  somewhat  higher  as  expected,  but  are 
still  at  the  bounds  of  the  calculated  uncertainty. 

The  effect  of  using  no  insert,  twisted  tape  and  HEATEX  on  can  be  seen  in 
Figure  24.  The  data  are  for  the  top  tube  only.  Note  that,  as  with  the  smooth  copper 
tubes  (Figure  17),  the  HEATEX  results  in  about  a  10  to  14%  increase  in  U,  in  com¬ 
parison  to  the  twisted  tape  insert.  Both  provide  significant  enhancement  in  U,  wfien 
compared  to  no  insert  (almost  100%  enhancement).  As  with  the  smooth  copper  tubes, 
w’hen  no  insert  is  used,  LJ,  appears  relatively  constant  for  coolant  velocities  over  the 
range  of  0.2  to  0.7  m/s  indicating  laminar  flow’. 

3.  Wire  Wrapped  KORODENSE  Tubes 

This  series  of  experiments  was  performed  to  determine  an  optimum  wire  diam¬ 
eter  as  discussed  in  "Experimental  Procedure".  All  tubes  were  tested  individually  and  all 
had  HE.ATEX  mixing  elements  installed.  Figure  25  show’s  U,  as  a  function  of  coolant 
velocity  for  the  case  of  an  ordinary  KORODENSE  tube  together  with  tubes  w'rapped 
with  0.029",  0.049"  and  0.0675"  diameter  wire,  each  tested  in  the  top  position  (tube  A). 
The  0.049"  diameter  wire  gives  the  biggest  enhancement  in  U,  (about  25%).  While  the 
other  two  wire  diameters  also  provide  enhancement  in  U,  (about  15%),  it  is  below  that 
of  the  0.049"  wire.  The  no  wire  case  agrees  with  the  previously  obtained  data  (see 
Figure  22). 

Figure  26  show's  similar  data  but  in  this  case  for  tube  B.  Again,  the  0.049"  di¬ 
ameter  wire  provides  the  greatest  enhancement  in  V,  (again  about  25%). 

Figure  27  show’s  what  happens  when  the  different  diameter  w’ires  are  used  on 
tube  C.  In  this  case  an  interesting  fact  can  be  observed.  Here,  both  the  0.049"  and  0.029" 
wire  provide  virtually  the  same  degree  of  enhancement  for  L\  (about  20%)  with  both 
being  better  than  the  0.0675"  w'ire.  Figure  28  show’s  the  results  obtained  for  tube  D. 
Note  that  vvlide  Lac  0.049"  ^^ilw  again  provides  the  greatest  degree  of  enhancement  for 
V,  (about  16”'o),  the  differences  between  the  three  different  diameter  wires  are  not  as 
great. 
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Figure  22.  KORODENSE  tubes  with  HEATEX  inserts,  bundle  operation. 
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Figure  25.  Effect  of  wire  diameter  on  U,  for  tube  A. 


66 


UZERO  (W/M**2  K) 

800.0  700.0  800.0  000.0  1000.0  LIOO.O  1200.0 


UZERO  WIRE  WRAPPED  KORODENSE 


TUBE  B.  R-il3.  HEATEX 


0.1  0.2  0.3  0.4  0.0  0.8  0.7  0.8  O.B  1  1.1 


VELOCITY  (KV^EC) 


Figure  26.  Effect  of  wire  diameter  on  U,  for  tube  B. 
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Figure  27.  Effect  of  >vire  diameter  on  14  for  tube  C. 
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Fignro  28.  Effect  of  wire  diameter  on  V,  for  tube  D. 
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Figure  27  and  Figure  28  suggest  that  the  position  of  the  wire  wrapped  tube 
within  the  bundle  may  affect  the  overall  heat  transfer  coefficient.  In  order  to  gain  further 
insight  on  this,  the  data  obtained  from  these  experiments  was  replotted  so  that  U,  for  a 
given  wire  diameter  w’as  plotted  as  a  function  of  coolant  velocity  for  all  four  tube  posi¬ 
tions.  The  data  for  the  tube  without  any  wire  is  shown  in  Figure  29.  The  data  is  all  very 
similar  and  no  distinct  trends  are  evident.  Note  that  comparison  of  this  data  with 
Figure  23  again  demonstrates  the  reproducibility  of  the  system. 

Figure  30  {0.029“  wire  diameter)  shows  that  tubes  A,  B  and  C  behave  similarly. 
Tube  D  produces  consistently  lower  values  for  U,  than  the  other  tubes.  Figure  31 
(0.049"  wire)  demonstrates  what  appears  to  be  a  positional  effect  on  U,.  The  data  for 
tube  A  and  B  is  virtually  identical  and  lies  above  that  of  tubes  C  and  D  which  are  also 
virtually  identical.  Figure  32  suggests  that  there  is  also  a  positional  effect  for  the 
0.0675"  wire.  The  top  tube  seems  to  provide  the  greatest  enhancement  in  U,.  The  level 
of  enhancement  for  tubes  C  and  D  are  approximately  the  same,  both  being  lower  than 
tubes  A  and  B. 

Figure  33  shows  plotted  as  a  function  of  wire  diameter  for  an  arbitrarily 
chosen  coolant  velocity  of  1.0  m/s.  Note  that  the  strongest  positional  affect  appears  to 
be  for  the  0.049"  wire.  Also,  it  is  clearly  evident  that  the  0.049"  wire  provides  the  greatest 
enhancement  for  heat  transfer. 

The  possible  positional  effect  may  be  due  to  vapor  velocity.  Although  the  ve¬ 
locity  of  the  vapor  was  very  small  in  this  study  (approximately  0.1  m/s)  there  may  still 
be  an  effect.  As  the  vapor  penetrates  the  tube  bundle,  it  slow-s  down.  As  its  velocity  is 
reduced,  it  can  no  longer  help  to  strip  condensate  from  the  tubes.  Hence,  heat  transfer 
is  decreased.  This  effect  looks  much  like  an  inundation  effect.  An  interesting  point  is 
why  this  shows  up  in  these  experiments  and  not  w'iih  the  plain  KORODEN'SE  or 
smooth  copper  tubes.  With  the  wire  wrapped  tubes,  the  condensate  layer  is  presumably 
thin.  Therefore,  anything  which  could  help  to  thin  it  further  w'ould  be  of  importance  in 
improving  heat  transfer.  The  loss  of  this  small  amount  of  vapor  shearing  may  be  im¬ 
portant  in  this  case. 

In  this  study,  the  0.049"  diameter  wire  appears  to  give  the  best  enhancement  in 
heat  transfer  (sec  Figure  33).  This  yields  a  pitch  to  w'ire  diameter  ratio  of  7.2.  Fujii  et 
al.  [Ref  33]  found  that  for  condensation  of  R-12  on  wire  wrapped  smooth  copper  tubes, 
the  optimal  pitch-to-wire  diameter  ratio  was  on  the  order  of  2.  This  difference  could  be 
due  to  our  use  of  the  KORODENSE  lubes.  For  a  pitch-to-wire  diameter  ratio  of  2,  we 
would  have  had  to  use  wire  which  was  of  the  order  of  5  mm  in  diameter.  This  would  have 
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Figure  30.  Effect  of  0.029"  wire  on  U,  for  all  tubes. 
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been  unrealistic  for  our  experiments.  It  may  be  that  the  optimal  pitch-to-wire  diameter 
may  in  fact  be  about  2.  Additional  experiments  need  to  be  performed  with  different 
pitch  KORODENSE  tubes. 

4.  KORODENSE  Tubes  Wrapped  with  0.049"  Wire 

Once  the  optimal  wire  diameter  had  been  determined,  two  identical  experiments 
were  performed  on  the  KORODENSE  copper/nickel  tubes  wrapped  with  the  0.049"  di¬ 
ameter  wire.  The  reason  that  two  experiments  were  performed  was  to  check  the  repeat¬ 
ability  of  the  data.  Figure  34  and  Figure  35  show  the  results  from  these  two  experiments 
for  bundle  operation  of  the  tubes.  The  two  experiments  show  excellent  repeatability.  In 
comparing  these  results  with  the  non-wire  wrapped  tubes  (Figure  22),  several  interesting 
points  can  be  made.  The  values  of  U,  for  all  four  tubes  are  greater  for  the  wire  wrapped 
tubes  than  for  the  pl2un  tubes  (approximately  16%  for  the  top  tube).  In  addition,  the 
inundation  effect  (seen  as  a  lowering  of  U„)  is  reduced  for  the  wire  wrapped  tubes. 
Finally,  note  that  the  differences  between  the  tubes  are  more  apparent  than  for  the 
non-wire  wrapped  tubes.  This  suggests  that  the  wire  wrapping  may  have  an  effect  upon 
condensate  inundation.  This  will  be  addressed  in  more  detail  later. 

Figure  36  and  Figur  37  show  the  results  obtained  v/hen  the  tubes  wrapped 
with  the  0.049"  diameter  wire  w'ere  operated  individually.  All  the  tubes  behave  similarly 
and  demonstrate  good  reproducibility  between  the  two  runs. 

5.  Copper/Nickel  Finned  Tubes 

Figure  38  show’s  the  results  obtained  when  no  insert  w'as  installed  and  the  tubes 
w’cre  operated  as  a  bundle.  Comparison  of  these  results  with  those  show'n  in  Figure  8 
for  the  smooth  tubes  shows  that  the  finned  tubes  yield  higher  heat  transfer  coefficients 
as  expected  (approximately  12%).  Also,  as  with  the  smooth  copper  tubes,  the  top  tube 
again  displays  the  highest  value  of  L\,  due  to  the  fact  that  the  lower  tubes  suffer  from 
condensate  inundation.  The  single  tube  data  for  the  finned  tubes  is  shown  in 
Figure  39.  All  four  tubes  are  virtually  the  same  as  the  top  tube  during  bundle  operation. 

Figure  40  and  Figure  41  show  the  results  obtained  for  the  finned  tubes  with  the 
tape  insert  installed  during  bundle  and  individual  tube  operation  respectively.  In  bundle 
operation,  che  values  of  U,  are  nearly  double  those  obtained  for  both  the  smooth  copper 
tubes  (Figure  10)  and  the  KORODENSE  tubes  (Figure  20)  using  similar  inserts.  As 
with  the  smooth  and  KORODENSE  tubes,  inundation  again  causes  a  reduction  in  L\  . 
This  reduction  for  the  second  tube  appears  to  be  about  10%.  Comparison  of  the  single 
tube  operation  (Figure  41)  w'ith  the  bundle  operation  (Figure  40)  show’s  that  all  four 
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Figure  34.  0.049"  iiire  wrapped  KORODENSE  tubes,  bundle  operation,  e.xpt.  1. 
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Figure  35.  0.049"  wire  wrapped  KORODENSE  tube.s,  bundle  operation,  e.xpt.  2. 
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Figure  36.  0.049"  wire  wrapped  KORODENSE  tubes,  individual  operation. 
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Figure  37.  0.049"  wire  wrapped  KORODENSE  tubes,  individual  operation. 
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Figure  38.  Copper/nickel  finned  tubes,  no  insert,  bundle  operation. 
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Figure  39.  Copper/nickel  finned  tubes,  no  insert,  individual  operation. 
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tubes  operated  individually  have  approximately  the  same  value  of  U,  as  the  top  tube 
during  the  bundle  operation. 

Data  obtained  from  experiments  on  the  copper/nickel  fumed  tubes  with  the 
HEATEX  elements  installed  are  shown  in  Figure  42  and  Figure  43  for  bundle  and  in¬ 
dividual  tube  operation  respectively.  Note  that  in  comparison  with  the  tape  insert  ex¬ 
periments  (Figure  40  and  Figure  41),  use  of  the  HEATEX  inserts  results  in  about  a 
20%  increase  in  U,  which  again  indicates  the  improvement  afforded  by  using  this  type 
of  insert.  Again  the  inundation  effect  results  in  a  decrement  of  10  to  14%.  During  in¬ 
dividual  tube  operation,  all  four  tubes  again  behave  like  the  top  tube  during  the  bundle 
operation. 

As  with  the  smooth  copper  tubes  and  the  KORODENSE  tubes,  the  effects  of 
using  different  types  of  inserts  can  be  summarized.  This  has  been  done  in  Figure  44. 
This  data  is  for  the  top  tube  only.  The  similarity  with  data  from  the  other  tubes  (see 
Figure  17  and  Figure  24)  is  good  with  HEATEX  yielding  approximately  a  20%  increase 
in  over  the  twisted  tape  insert  and  a  remarkable  200%  increase  over  the  case  with  no 
insert! 

C.  OUTSIDE  HEAT  TRANSFER  COEFFICIENT 

The  following  figures  deal  with  the  outside  heat  transfer  coefficient,  /i,.  In  all  cases, 
except  as  specifically  noted,  the  outside  heat  transfer  coefficient  was  determined  using 
the  modified  Wilson  Plot  procedure.  As  before,  tube  A  is  the  top  tube  with  tube  D  being 
the  bottom  tube  in  the  bundle.  In  addition,  no  values  were  obtained  for  h,  for  exper¬ 
iments  which  had  no  insert.  The  reason  for  this  is  that,  for  the  coolant  velocities  used, 
without  inserts,  the  inside  resistance  was  simply  too  large  for  any  accurate  results  to  be 
obtained  for  h,. 

1.  Smooth  Copper  Tubes 

Figure  45  and  Figure  46  show  the  values  obtained  for  for  the  smooth  copper 
tubes  with  the  tape  insert  installed  during  bundle  and  individual  tube  operation  respec¬ 
tively.  Several  features  deserve  comment.  First,  values  of  h,  for  the  top  tube  are  below 
those  predicted  by  Nusselt  theory.  These  differences  range  from  about  15%  at  low 
coolant  velocities  to  about  7%  at  the  higher  coolant  velocities.  In  addition,  note  the 
inundation  effect  (seen  as  a  reduction  in  /i,  for  tubes  B,  C,  and  D).  Reductions  in  h,  range 
from  28'’/o  to  19%  as  coolant  velocity  increases  from  0.2  to  1.2  m/s  respectively.  As  was 
the  case  for  the  overall  heat  transfer  coefficient,  when  the  tubes  were  operated  individ- 
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Figure  41.  Copper/nickel  Finned  tubes,  tape  insert,  individual  operation. 
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Figure  43.  Copper/nickel  rinned  tubes,  HEATEX  insert,  individual  operation. 
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ually,  all  had  values  for  h,  which  were  virtually  identical  to  those  obtained  for  the  top 
tube  during  bundle  operation. 

Figure  47  and  Figure  48  show  values  for  h,  obtained  w'hen  the  HEATEX  ele¬ 
ments  were  installed  in  the  copper  tubes  during  bundle  ana  individual  tube  operation 
respectively.  As  was  the  case  for  the  tape  insert,  values  of  h,  range  from  about  10  to 
14%  below  that  predicted  from  Nusselt  theory.  Again,  there  is  a  substantial  inundation 
effect  which  results  in  a  15  to  18%  decrease  in  /j„  when  comparing  the  top  tube  to  the 
second  tube.  Note  that  the  values  for  obtained  for  the  individual  tubes  agree  with 
those  obtained  for  the  top  tube  during  bundle  operation.  Finally,  comparison  of  the 
value  for  obtained  when  the  tape  inserts  were  used  as  opposed  to  the  HEATEX  ele¬ 
ments  reveal  no  effect  on  which  is  to  be  expected  since  we  are  examining  the  outside 
heat  transfer  coefficient. 

It  is  interesting  to  note  that  Goto  et  al.  [Ref.  5]  found  that  values  of  h,  for 
R-113  condensing  on  long,  smooth  copper  tubes  were  about  10%  below  that  predicted 
by  Nusselt  theory.  Marto  et  al.  [Ref.  8  ]  found  that  the  vapor-side  heat  transfer  coeffi¬ 
cient  for  R-113  condensing  on  short  (0.133m)  smooth  copper  tubes  was  in  relatively 
good  agreement  with  Nusselt  theory.  This  result  was  subsequently  confirmed  by  Michael 
et  al.  [Ref  32].  How’ever,  it  is  important  to  point  out  that  both  the  latter  reports  used 
very  short  condenser  tubes.  The  tubes  used  by  Goto  et  al.  were  about  0.6  m  in  length, 
while  the  tubes  used  in  this  study  had  a  condensing  length  of  1.2  m.  Hence  tube  length 
may  be  an  important  consideration.  The  reason  for  this  is  as  follows.  The  coolant  en¬ 
ters  the  condenser  tube  with  a  given  inlet  temperature.  As  the  coolant  flows  through  the 
tube,  the  coolant  temperature  increases.  The  wall  termperature  is  also  changing  down 
the  length  of  the  tube.  At  the  tube  entrance,  the  temperature  difference  between  the  tube 
wal  and  the  vapor  saturation  temperature  causes  the  formation  of  a  thick  condensate 
layer.  This  layer  is  thinner  at  the  tube  outlet  due  to  the  smaller  wall-vapor  saturation 
temperature  difference.  This  causes  condensate  to  flow  in  the  axial  direction.  These  fac¬ 
tors  taken  together  imply  that  the  temperature  difference  is  a  function  of  the  length  of 
the  tube.  This  factor  is  not  taken  into  account  in  the  Nusselt  analysis.  As  coolant  ve¬ 
locity  increase;^  the  difference  betwee  the  coolant  inlet  and  outlet  temperatures  is  re¬ 
duced.  The  wall  temperature  becomes  more  constant  along  the  tube  length  so  that  values 
for  are  in  better  agreement  with  those  determined  experimentally. 

The  effect  of  using  the  twisted  tape  and  HEATEX  insert  on  the  inside  and  out¬ 
side  heat  transfer  coefficients  is  demonstrated  in  Figure  49  and  Figure  50  respectively. 
In  both  cases,  the  values  for  /i,  arc  virtually  identical  as  expected.  However,  the 
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Figure  45.  Smooth  Copper  tubes,  tape  insert,  bundle  operation. 
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Figure  46.  Smooth  Copper  tubes,  tape  insert,  individual  operation. 
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Figure  47.  Smooth  Copper  tubes,  HEATEX  insert,  bundle  operation. 
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Figure  48.  Smooth  Copper  tubes,  HEATEX  insert,  individual  operation. 
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HEATEX  elements  essentially  double  the  inside  heat  transfer  coefiicient.  This  is  what 
provides  the  improvement  in  overall  heat  transfer  coefTicient  w'hen  the  HEATEX  ele¬ 
ments  are  used. 

The  efiects  of  inundation  were  examined  by  calculating  an  average  and  a  local 
heat  transfer  coefficient.  The  local  h,  is  found  by  dividing  the  value  for  h,  for  a  given 
tube  by  the  value  for  the  top  tube.  Values  obtained  are  then  compared  with  Nusselt 
theory’  <^Eq.  2-18)  and  the  Kern  model  (Eq.  2-20).  The  average  heat  transfer  coefficient 
is  determined  by  taking  an  average  value  of  A,  for  the  tube  of  interest  plus  the  tubes 
above  it  and  dividing  this  value  by  h,  for  the  top  tube.  Values  obtained  are  then  com¬ 
pared  to  Nusselt  theory  (Eq.  2-17),  the  Kern  model  (Eq.  2-19),  or  the  Eissenberg  model 
(Eq.  2  !2).  For  both  the  local  and  average  values,  the  flatter  the  curves,  the  less  the  ef¬ 
fect  of  condensate  inundation. 

The  effects  of  inundation  on  /i,  for  the  smooth  copper  tubes  are  shown  in 
Figure  51,  Figure  52,  Figure  53  and  Figure  54  at  three  arbitrarily  chosen  coolant  ve¬ 
locities.  As  expected,  there  is  virtually  no  difference  on  the  local  or  average  values  of  the 
heat  transfer  coefTicient  when  the  tape  insert  is  used  as  opposed  to  the  HEATEX  ele¬ 
ment.  In  addition,  the  values  for  the  average  heat  transfer  coefficient  lie  in  between  the 
values  predicted  by  the  Kern  and  Eissenberg  models  (equations  2-19,  and  2-21).  Values 
for  the  local  heat  transfer  coefficient  lie  slightly  above  those  predicted  by  the  Kern  model 
(equation  2-20).  These  results  suggest  that  Nusselt  theory  is  too  conservative  with  re¬ 
gard  to  the  effect  of  condensate  inundation.  It  is  interesting  to  note  that  the  main 
inundation  effect  occurs  for  •  le  second  tube  with  little  additional  effect  for  subsequent 
tubes  in  the  bundle.  This  again  supports  the  notion  that  the  smooth  copper  tubes  can 
only  support  a  limited  amount  of  condensate 
2.  KORODENSE  Tubes 

Figure  55  and  Figure  56  show'  values  for  h,  for  the  KORODENSE  tubes  w'ith 
the  tape  inserts  installed.  The  figures  show  data  obtained  when  the  tubes  were  operated 
as  a  bundle  and  individually  respectively.  The  values  of  h,  for  the  top  tube  are  above  that 
predicted  from  Nusselt  theory  which  is  due  to  the  small  enhancement  provided  by  the 
raping  of  the  tubes.  This  enhancement  is  approximately  15  to  20%  in  comparison  to  the 
smooth  copper  tubes.  As  with  the  smooth  copper  tubes,  there  is  again  a  substantial  ef¬ 
fect  of  inundation  (on  the  order  of  20%  for  th-'  second  tube  compared  to  the  top  tube). 
There  is  also  more  separation  between  the  values  of  h,  for  tubes  B,  C,  and  D  than  for 
the  smooth  copper  tubes  indicating  that  the  lower  tubes  may  not  be  "saturated"  W'ith 
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Figure  51.  Local  h,  for  tape  insert. 
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Figure  52.  Local  h,  for  HEATEX  element. 
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condensate.  Finally,  note  that  the  relative  values  for  /i,  for  the  KORODENSE  tubes  are 
about  10  to  15%  higher  than  the  corresponding  values  for  the  smooth  copper  tubes. 

The  data  for  the  KORODENSE  tubes  operated  individually  show  much  more 
scatter  than  was  seen  for  the  smooth  copper  tubes  especially  at  low  coolant  flow  rates. 
Also,  rather  than  being  virtually  identical  with  those  obtained  for  the  top  tube  during 
bundle  operation,  the  values  of  lay  scattered  between  those  for  the  top  tube  (bundle 
operation)  and  the  va.ues  predicted  by  Xusselt  theory.  Presumably,  this  is  due  to  either 
inaccuracies  or  uncertainty  in  the  inside  correlation  especially  at  low  coolant  flow  rates. 
At  higher  coolant  velocities,  the  scatter  appears  to  be  within  about  10%. 

Values  for  h,  for  the  KORODENSE  tubes  obtained  when  the  HEATEX  ele¬ 
ments  were  installed  are  shown  in  Figure  57  and  Figure  58  for  bundle  and  individual 
tube  operation  respectively.  As  with  the  experiments  conducted  with  the  tape  inserts 
installed,  values  of  h,  again  lie  above  those  predicted  by  Nusselt  theory.  The  enhance¬ 
ment  appears  to  be  approximately  15  to  20%.  Again  there  is  a  substantial  inundation 
effect  which  is  of  the  order  of  20%  for  the  second  tube  in  comparison  to  the  top  tube. 
The  data  obtained  for  the  individual  tube  operation  shows  less  scatter.  However,  values 
for  all  the  tubes  again  lie  between  those  predicted  by  Nusselt  theory  and  those  obtained 
for  the  top  tube  during  bundle  operation. 

As  with  the  smooth  copper  tubes,  the  effects  of  changing  inserts  on  the  inside 
and  outside  heat  transfer  coefficients  are  shown  in  Figure  59  and  Figure  60.  The  inside 
heat  transfer  coefTicients  are  identical  to  those  of  the  smooth  copper  tubes  (Figure  49 
and  Figure  50).  It  was  felt  that  the  enhancement  provided  by  the  roping  would  be  much 
less  than  the  enhancement  provided  by  the  inserts.  Therefore,  the  same  correlations 
were  used  to  determine  the  inside  heat  transfer  coefficient.  The  values  for  h,  are  slightly 
greater  for  the  KORODENSE  tubes  than  for  the  smooth  copper  tubes  (approximately 
5  to  10%). 

Figure  61  and  Figure  62  show  the  local  heat  transfer  coefficient  for  the  four 
tubes  for  the  tape  insert  and  the  HEATEX  elements.  There  is  virtually  no  difference 
between  the  two.  The  values  lie  above  the  Kern  estimate.  Figure  63  and  Figure  64  show 
the  average  heat  transfer  coefficient  for  the  four  tubes  with  both  inserts.  The  differences 
for  values  using  the  tape  inserts  as  opposed  to  the  HEATEX  elements  are  again  negli¬ 
gible.  The  average  values  for  h,  also  lie  just  above  the  Kern  model.  This  is  in  contrast  to 
the  smooth  copper  tubes  where  the  average  values  lay  near  the  Nusselt  estimate.  This 
suggests  that  the  effect  of  condensate  inundation  is  indeed  less  for  the  KORODENSE 
tubes. 
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Figure  55.  KORODENSE  tubes,  tape  insert,  bundle  operation. 
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Figure  56.  KORODENSE  tubes,  tape  insert,  individual  operation. 
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Figure  57.  KORODENSE  tubes,  HEATEX  insert,  bundle  operation. 
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Figure  58.  KORODENSE  tubes,  HEATEX  insert,  individual  operation. 
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Figure  59.  Effect  of  tape  insert  on  h,  and  A, 
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Figure  60.  Effect  of  HEATEX  insert  on  h,  and  A, 
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Figure  61.  Local  A,  for  tape  insert. 
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Figure  62.  Local  //,  for  HEATEX  element. 
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Figure  63.  Average  h,  for  tape  insert. 
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Figure  64.  Average  h,  for  HEATEX  element. 
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3.  Wire  Wrapped  KORODENSE  Tubes 

The  efTect  on  of  capping  wire  around  the  KORODENSE  tubes  is  shown  in 
Figure  65,  Figure  66,  Figure  67  and  Figure  68.  In  viewing  these  figures,  one  should 
remember  that  the  values  for  the  unwrapped  KORODENSE  tubes  were  about  10% 
greater  than  predicted  from  Nusselt  theory  and  about  15%  greater  than  for  the  smooth 
copper  tubes.  From  the  figures,  it  appears  that  the  0.049"  diameter  wire  results  in  the 
greatest  enhancement  in  h,  for  all  four  tube  positions.  However,  the  relative  magmtude 
of  the  enhancement  decreases  as  lower  tubes  are  examined.  Since  this  data  was  obtained 
during  individual  tube  operation,  the  results  are  not  due  to  condensate  inundation. 

Values  for  /i,  are  shown  for  each  wire  diameter  in  all  four  tube  positions  in  Fig¬ 
ure  69,  Figure  70,  Figure  71  and  Figure  72.  When  no  wire  is  used,  the  results  are  the 
same  as  those  shown  in  Figure  58.  For  the  0.029"  wire,  positions  A  and  B  are  essentially 
identical  with  tube  C  showing  the  greatest  enhancement  and  tube  D  the  worst.  The 
magnitude  of  the  deviation  is  about  20%.  The  0.049"  diameter  wire  results  in  the  best 
enhancement  in  h,  regardless  of  position.  However,  note  that  position  D  is  not  over¬ 
whelmingly  greater  than  for  the  0.029"  wire.  The  data  show  that  the  level  of  enhance¬ 
ment  depends  upon  bundle  position.  The  top  tube  positions  behave  similarly  while 
positions  C  and  D  show  reduced  levels  of  enhancement  Finally,  the  0.0675"  diameter 
wire  yields  values  for  h,  which  are  nearly  the  same  although  a  positional  effect  appears 
evident.  An  interesting  comparison  are  the  values  for  for  the  0.049"  and  0.0675"  wire 
in  the  fourth  position.  Here  it  appears  that  the  0.0675"  wire  gives  roughly  the  same  level 
of  enhancement  especially  at  high  coolant  velocities. 

4.  KORODENSE  Tubes  Wrapped  with  0.049"  Wire 

The  effects  on  h,  of  wrapping  0.049"  diameter  wire  on  KORODENSE  tubes  on 
are  shown  in  Figure  73  and  Figure  74.  These  two  experiments  are  identical  runs.  In 
both  cases,  there  is  a  substantial  improvement  in  for  all  tubes  when  compared  to  val¬ 
ues  predicted  from  Nusselt  theory.  It  is  interesting  to  note  that  even  though  tubes  B, 
C,  and  D  are  all  being  inundated,  the  values  for  h,  are  still  well  above  Nusselt  theory 
(32°/'o  for  tube  A,  28%  for  tube  B,  22%  for  tube  C  and  16%  for  tube  D).  In  comparison 
with  the  non-wire  WTapped  KORODENSE  tubes,  wrapping  with  the  0.049"  diameter 
wire  yields  an  increase  of  about  70%  for  tubes  A  and  B  and  about  a  30  to  50%  increase 
for  tubes  C  and  D.  Comparison  with  the  top  smooth  tube  yields  almost  a  90%  increase 
in  /?,. 

The  results  for  the  single  tube  runs  are  shown  in  Figure  75  and  Figure  76.  Both 
runs  demonstrate  considerable  scatter  in  the  data  of  about  ±  22%.  It  is  also  interesting 
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Figure  65.  Effect  of  wire  diameter  on  h,  for  tube  A. 
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Figure  66.  Effect  of  wire  diameter  on  h,  for  tube  B. 
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Figure  67.  Effect  of  nire  diameter  on  A,  for  tube  C. 
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Figure  68.  Effect  of  wire  diameter  on  h,  for  tube  D. 
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Figure  69.  Effect  of  no  vire  on  h,  for  all  tubes. 
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Figure  70.  Effect  of  0.029"  wire  on  h,  for  all  tubes. 
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Figure  71. 


Effect  of  0.049"  wire  on  A,  for  all  tubes. 
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Figure  72.  Effect  of  0.0675"  wire  on  A,  for  all  tubes. 
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Figure  74.  0.049"  wire  wrapped  KORODENSE  tubes,  bundle  operation,  expt.  2. 
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to  note  that  the  data  for  these  single  tube  runs  is  somewhat  higher  than  for  the  bundle 
runs  (of  the  order  of  1 1%).  This  may  be  due  to  uncertainty  in  the  correlations  used  for 
h,  which  are  reflected  in  /i. 

The  values  for  the  average  and  local  vapor-side  heat  transfer  coefTicients  are 
shown  in  Figure  77,  Figure  78,  Figure  79  and  Figure  80  for  the  two  experiments  con¬ 
ducted  with  the  0.049“  wire  wrapped  KORODENSE  tubes.  The  average  vapor-side  heat 
transfer  coefficient  is  equal  to  that  predicted  by  the  Eissenberg  model  whereas  the  local 
vapor-side  heat  transfer  coefficient  is  substantially  above  the  Kern  estimate.  Recall  that 
for  the  plain  KORODENSE  tubes,  the  average  heat  transfer  coefficient  was  above  the 
Kern  estimate  but  below  that  predicted  by  the  Eissenberg  model.  The  local  heat  transfer 
coefficient  was  just  above  the  Kern  estimate.  The  differences  between  the  plain  and 
wire-wrapped  KORODENSE  tubes  demonstrate  that  wrapping  the  tubes  with  wire 
substantially  reduces  the  effects  of  condensate  inundation. 

5.  Copper/Nickel  Finned  Tubes 

The  values  for  obtained  from  experiments  on  copper/ nickel  finned  tubes  using 
the  tape  inserts  are  shown  in  Figure  81.  The  values  obtained  for  the  top  tube  are  ap¬ 
proximately  7  times  greater  than  predicted  by  Nusselt  theory.  Condensate  inundation 
caused  about  a  35%  decrease  in  h,  for  the  second  tube. 

The  values  for  h,  obtained  using  the  same  tubes  but  with  the  HEATEX  elements 
are  shown  in  Figure  82.  In  comparison  to  the  values  obtained  for  the  tape  inserts  (see 
Figure  81),  this  data  appears  very  scattered  with  enhancement  over  Nusselt  theory  of 
the  order  of  10  to  15  fold.  This  is  a  large  discrepancy.  It  is  possible  that  the  correlation 
for  the  small  diameter  HEATEX  element  may  be  suspect.  The  data  supplied  by  CAL 
GAVIN  was  collected  on  smooth  copper  tubes  with  a  diameter  similar  to  that  of  our 
copper,' nickel  finned  tubes.  This  data  was  collected  over  a  lower  coolant  velocity  range 
than  that  used  in  this  study.  Therefore,  the  correlation  for  this  HEATEX  element  may 
not  be  valid  for  the  finned  tube  over  the  range  of  coolant  velocities  used  here.  This  area 
needs  to  be  studied  further,  perhaps  even  to  gathering  new  experimental  data  which  can 
be  used  to  develop  a  new  correlation. 

The  degree  of  inundation  can  be  seen  in  Figure  83,  Figure  84,  Figure  85  and 
Figure  86.  The  data  for  the  average  vapor-side  heat  transfer  coefficient  for  both 
HEATEX  as  well  as  tape  inserts  lie  between  the  Nusselt  and  Kern  models.  This  is  also 
true  for  the  local  vapor-side  heat  transfer  coefficients. 

An  interesting  comparison  is  to  look  at  the  average  and  local  heat  transfer  val¬ 
ues  for  all  tubes  tested.  Regarding  the  average  heat  transfer  coefficient,  for  the  smooth 
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Figure  75.  0.049"  wire  wrapped  KORODENSE,  individual  runs,  expt.  1. 
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Figure  76, 


0.049*  wire  wrapped  KORODENSE,  individual  runs,  expt.  2, 
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Figure  77.  Average  h,  wire  wrapped  KORODENSE,  expt.  1. 
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Figure  78.  Average  h,  wire  wrapped  KORODENSE,  expt.  2. 
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Figure  79.  Local  h,  wire  wrapped  KORODENSE,  expt.  I. 
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Figure  80.  Local  h,  wire  wrapped  KORODENSE,  expt.  2. 
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Figure  81.  h,  for  copper/nickel  finned  tubes,  tape  insert. 
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Figure  82.  h,  for  copper/nickel  ruined  tubes,  HEATEX  insert. 
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copper  tubes,  the  values  lay  between  the  Kern  and  Eissenberg  estimates.  The  plain 
KORODENSE  tubes  had  values  similar  to  those  for  the  smooth  copper  tubes  while  the 
0.049"  wire-wrapped  KORODENSE  had  values  which  matched  estimates  based  on 
Eissenberg's  model.  The  copper/nickel  finned  tubes,  on  the  other  hand,  had  values  which 
were  between  the  Kern  and  Nusselt  estimates.  Since  the  lower  the  values  the  more 
condensate  efiect  present,  this  data  would  imply  that  the  effect  of  inundation  is  worse 
on  the  finned  tubes  and  least  on  the  wire-wrapped  tubes.  If  the  data  for  the  local  heat 
transfer  coefficients  is  analyzed  in  a  similar  manner,  the  same  conclusions  are  reached. 

The  wire  wrapped  KORODENSE  tubes  have  the  least  effect  of  condensate 
inundation  presumably  because  the  wre  serves  to  create  a  low  pressure  area  at  the  base 
of  the  wire.  This  causes  condensate  to  be  pulled  along  the  tube  which  enhances  heat 
transfer.  The  values  for  the  finned  tubes  are  not  in  agreement  with  those  of  Honda  et 
al.  [Ref  42).  These  investigators  found  that  the  degree  of  inudation  effect  was  substan¬ 
tially  less  than  that  reported  here.  There  are  two  apparent  reasons  for  this.  The  pitch- 
to-diameter  ratio  used  by  Honda  et  al.  was  1.37  whereas  in  the  present  study  it  is  2.25. 
This  difference  may  cause  differences  in  the  way  condensate  drains  from  one  tube  onto 
another.  Alternatively,  the  correlations  used  to  determine  the  heat  transfer  coefficient 
may  be  suspect.  Hong  and  Bergles  [Ref  47]  have  reported  that  their  correlation  for  the 
twisted  tape  has  an  uncertainty  of  about  15%.  Therefore,  it  is  possible  that  the  large 
effect  of  condensate  inundation  is  due  more  to  uncertainty  in  the  correlations  than  to  a 
real  phenomenon. 

In  order  to  assess  the  validity  of  the  data  obtained  on  the  copper/nickel  finned 
tubes,  a  comparison  was  made  with  the  model  of  Beatty  and  Katz  [Ref  13).  In  order  to 
do  this  comparison,  the  fin  efficiency  had  to  be  determined  using  equations  from 
Incropera  and  DeWitt  [Ref  55).  It  was  assumed  that  the  fins  could  be  approximated 
as  rectangular  fins  with  adiabatic  tips.  The  fin  efficiency  was  then  approximated  by: 


tanh(mL(.) 

”/ — — 


(6-1) 


According  to  Incropera  and  DeWitt,  the  term  mL,  can  be  approximated  by  [Ref  55): 


mLf  — 


2h 

kA„ 


(6-2) 
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Figure  84.  Average  h,  for  Cu/Ni  Finned  tubes,  HEATEX  insert. 
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Figure  85.  Local  A,  for  Cu/Ni  finned  tubes,  tape  insert. 
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Figure  86.  Local  h,  for  Cu/Ni  finned  tubes,  HEATEX  insert. 
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where  L,  is  defined  as: 


(6-3) 


4=^  +  y 

Here,  L  is  defined  as  the  height  of  the  fin  and  t  is  the  fin  thickness.  The  term  is  de¬ 
fined  as: 


Ap^Lj  (6-4) 

In  order  to  calculate  a  value  he  fin  efficiency, »//,  an  iterative  procedure  was 
used.  First,  a  value  for  K  was  guessed.  Based  on  this  value,  rj,  was  calculated  using 
equation  (6-1).  An  effective  area  was  then  calculated  from  the  following  equation  (Marto 
[Ref  3]): 


Aef—  n/Afs  +  n/Afi  +  A^ 


(6-5) 


where  Af,  is  the  surface  area  of  the  fins  sides,  Ap  is  the  surface  area  of  the  fin  tips  and 
is  the  interfin  surface  area.  Using  these  values,  the  effective  diameter,  D,  was  deter¬ 
mined  from  (Marto  [Ref  3]): 


J. 

D. 


e  J  -^ef 


jy.25 


nr 


W  D 


0.25 


+  ■ 


W  4 


0.25 


(6-6) 


where  L  is  defined  as: 


-  adI-d}) 


(6-7) 


The  heat  transfer  coefficient  is  then  calculated  from  a  modified  version  of  the  Beatty  and 
Katz  model  (Eq.  2-2)  which  uses  heat  flux  rather  then  the  film  temperature  difference, 
AT. 


=  .6085 


(6-8) 


The  results  of  these  calculations  for  the  copper/nickel  finned  tubes  with  the  tape 
inserts  are  shown  in  Figure  87.  In  this  figure,  the  values  of  h,  predicted  from  the  Beatty 
and  Katz  model  have  been  expressed  in  terms  of  the  smooth  tube  area,  that  is  nd.L  . 
Also  note  that  values  for  h,  have  been  calculated  for  copper,  copper/nickel  and  titanium. 
It  is  important  to  note  that  the  raw  data  lies  below  the  predicted  values  for  copper/nickel 
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finned  tubes.  The  data  obtained  after  reprocessing  with  the  modified  Wilson  plot  proce¬ 
dure  lies  somewhat  above  the  prediction.  However,  both  lie  within  ±  20%  which  is 
within  the  range  of  validity  for  the  Beatty  and  Katz  model.  Therefore,  it  would  appear 
that  the  data  obtained  in  the  present  study  for  the  copper/ nickel  finned  tubes  with  the 
tape  inserts  are  reasonable. 

The  results  for  the  copper/nickel  finned  tubes  with  the  HEATEX  elements  in¬ 
stalled  are  not  as  good.  These  results  are  shown  in  Figure  88.  This  figure  shows  the 
tremendous  amount  of  scatter  in  the  data  irrespective  of  whether  the  raw  data  or  the 
data  obtained  from  the  modified  Wilson  plot  procedure  is  used.  In  either  case,  it  is  ap¬ 
parent  that  the  data  do  not  match  values  predicted  from  the  model  of  Beatty  and  Katz. 
The  only  difference  in  these  two  experiments  is  the  type  of  insert  used.  The  values  for 
/i,  are  based  on  an  experimentally  determined  value  for  and  a  value  for  /i,  which  is 
obtained  from  a  correlation.  In  this  study,  the  correlations  for  the  HEATEX  elements 
were  based  on  empirical  data  supplied  from  the  manufacturer.  This  data  was  obtained 
on  smooth  copper  tubes  having  the  same  diameter  as  the  copper/nickel  finned  tubes  used 
in  this  study.  Another  point  which  must  be  considered  is  that  the  range  of  velocity  for 
whicIT  the  empirical  data  was  supplied  was  from  0.2  to  1.2  m/s.  However,  for  the 
copper/nickel  finned  tubes  used  in  this  study,  a  coolant  velocity  of  0.7  to  2  m/s  was  used. 
These  factors  would  suggest  that  the  correlation  used  for  the  small  diameter  HEATEX 
element  is  in  error.  Further  research  will  have  to  verify  whether  or  not  this  is  the  case. 

D.  IMPLICATIONS  OF  PRESENT  WORK 

This  study  used  R-113  as  the  refrigerant  and  a  refrigerated  ethylene  glycol/water 
mixture  as  the  coolant.  However,  Naval  refrigeration  systems  use  R-114  for  the 
refrigerant  and  sea  water  as  the  condensing  medium.  Therefore,  one  must  ask  whether 
the  results  obtained  from  the  present  work  can  be  extended  to  Naval  applications.  In 
order  to  perform  the  following  analysis,  the  dimensions  of  the  smooth  copper  tubes  and 
copper/nickel  finned  tubes  (26  fpi)  used  in  this  study  were  assumed.  The  inside  heat 
transfer  coefficient  was  calculated  using  the  Dittus-Boelter  correlation.  For  the  smooth 
tubes,  h,  was  calculated  using  the  Nusselt  equation,  modified  to  use  heat  flux  rather  than 
the  film  temperature  difference,  AT  .  For  the  finned  tube,  h,  was  again  calculated  using 
the  Dittus-Boelter  correlation.  However,  h,  was  calculated  using  the  modified  Beatty  and 
Katz  equation  (Eq.  6-8).  The  fin  efficiency  was  assumed  to  be  1.0.  The  condenser  design 
parameters  were  modeled  after  the  requirements  for  the  DDG-51.  Hence,  the  refriger¬ 
ation  load  was  fixed  at  242.7  tons.  The  number  of  condenser  tubes  was  fixed  at  340 
tubes.  Coolant  inlet  temperature  was  assumed  to  be  65  F  (18.3  C)  while  the  saturation 
temperature  of  R-114  was  107.8  F  (42.1  C).  The  coolant  velocity  was  held  constant  at 
2  m,  s. 
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Figure  87.  Experimental  data  (tape  insert)  vs.  Beatty/Katz  model. 
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Figure  S8.  Experimental  data  (HEATEX  insert)  vs.  Beatty/Katz  model. 
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Ratios  of  the  surface  areas  for  finned  to  smooth  tube  and  a  finned  KORODENSE 
tube  to  smooth  tube  were  calculated.  In  order  to  carry  out  this  calculation  for  the 
KORODENSE  tube,  some  type  of  correlation  must  be  used  to  calculate  /z,.  However, 
as  shown  by  Cunningham  and  Ben  Boudinar  [Ref  56]  in  their  work  on  steam 
condensation  on  roped  tubes,  the  enhancement  due  to  the  roping  depends  upon  the  type 
of  groove  cut  into  the  tube.  In  this  analysis,  an  enhancement  of  1.6  for  /z,  was  assumed 
for  the  KORODENSE  tube  over  the  finned  tube.  Once  the  area  ratio  is  obtained,  a 
condenser  tube  length  can  be  calculated.  This  is  done  as  follows.  The  area  ratio  can  be 
expressed  in  terms  of  length  by: 

■^0/  NofLf 

— ^  (6  -  9) 

Npid,L, 

where  A,j  is  the  area  of  the  finned  tube,  A,^  is  the  area  for  the  smooth  tube,  and  N  is  the 
number  of  tubes.  The  term  a,  is  given  by: 

aj={Af+A,)N  (6-10) 


where  A,  and  A„  are  the  finned  and  unfinned  areas  respectively. 

Table  3  shows  the  results  of  this  calculation.  For  the  finned  tube,  the  area  ratio  of 
1.75  leads  to  a  decrease  in  the  condenser  length  of  about  50%.  On  the  other  hand,  if  a 
roped  KORODENSE  tube  could  be  manufactured  which  had  fins  on  the  outside  surface, 
the  reduction  in  length  of  the  condenser  tubes  would  be  58%.  This  could  lead  to  even 
greater  weight  savings  for  refrigeration  systems. 


Table  .1.  SUMMARY  OF  AREA  RATIO  CALCULATIONS 
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VII.  CONCLUSIONS 


The  following  conclusions  can  be  made  based  on  the  results  obtained  in  this  study. 

A.  GENERAL 

1.  The  condenser/evaporator  test  platform  is  fully  operational  and  shows  no  signs  of 
the  contamination  problems  reported  by  Mabrey  [Ref.  2  ]. 

2.  Values  for  outside  heat  transfer  coefficient  obtained  using  smooth  copper  tubes 
appear  to  be  reasonable  and  agree  with  other  published  data. 

B.  OVERALL  HEAT  TRANSFER  COEFFICIENT 

1.  KORODENSE  tubes  provide  enhancements  of  6  to  8%  over  smooth  copper  tubes 
regardless  of  the  type  of  insert  used. 

2.  For  the  KORODENSE  tubes  used  in  this  study,  wire  wrapping  results  in  an  en¬ 
hancement  in  heat  transfer. 

3.  The  optimal  pitch-to-wire  diameter  was  about  7  for  the  KORODENSE  tubes  used 
in  the  present  work. 

4.  Wrapping  the  KORODENSE  tubes  with  0.049"  diameter  wire  resulted  in  an  en¬ 
hancement  of  16%  over  the  non  wire-wrapped  KORODENSE  tubes  and  a  22  to 
24%  enliancement  over  the  smooth  copper  tubes. 

5.  Copper/nickel  finned  tubes  (26  fpi)  yielded  a  doubling  of  the  heat  transfer  in  com¬ 
parison  to  smooth  copper  tubes. 

6.  The  use  of  HEATEX  radial  mixing  elements  yielded  a  10  to  15%  increase  in  com¬ 
parison  to  the  use  of  twisted  tape  inserts. 

C.  OUTSIDE  HEAT  TRANSFER  COEFFICIENT 

1.  The  smooth  tubes  yielded  values  of  /i,  which  were  7  to  15%  below  those  estimated 
from  Nusselt  theory. 

2.  The  KORODENSE  tubes  gave  values  of  /i„  which  were  about  15%  greater  than 
those  estimated  from  Nusselt  theory  and  approximately  25%  greater  than  values 
obtained  for  the  smooth  copper  tubes. 

3.  Wrapping  the  KORODENSE  tube  with  0.049"  diameter  wire  resulted  in  a  90% 
increase  in  the  outside  heat  transfer  coefficient  in  comparison  to  the  smooth  copper 
tubes. 

4.  The  copper/nickel  finned  tubes  yielded  a  7  fold  increase  in  h,  over  the  smooth 
copper  tubes. 

D.  EFFECTS  OF  CONDENSATE  INUNDATION 

1.  For  smooth  copper  tubes,  condensate  inundation  resulted  is  a  15  to  18''/'o  decrease 
in  h,  for  the  second  tube  compared  to  the  top  tube. 


142 


2.  KORODENSE  tubes  showed  a  20%  decrease  in  h,  for  this  same  comparison. 

3.  Wrapping  the  KORODENSE  tubes  with  0.049"  diameter  wire  resulted  in  a  decrease 
of  only  5  to  10%  in  for  the  second  tube  compared  to  the  top  tube. 

4.  For  the  copper/nickel  finned  tubes,  condensate  inundation  resulted  in  almost  a 
35%  decrease  in  /i,  for  the  second  tube  relative  to  the  top  tube.  This  large  decrease 
is  presumably  due  to  uncertainty  in  the  correlations  used  to  determine  the  heat 
transfer  coefficient. 
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VIII.  RECOMMENDATIONS 


Based  on  the  results  of  this  study,  the  following  recommendations  are  made: 

A.  GENERAL  RECOMMENDATIONS 

1.  The  ball  valves  which  control  coolant  flow  to  the  flowmeters  should  be  replaced 
with  needle  valves.  This  will  provide  belter  control  of  coolant  flow. 

2.  The  flowmeters  should  be  replaced  with  larger  capacity  meters.  This  will  allow  in¬ 
vestigation  of  heat  transfer  at  higher  coolant  velocities  and  therefore  higher 
condensation  rates.  This  change  will  have  to  be  accompanied  by  an  increase  in  the 
diameter  of  the  coolant  return  header  in  order  to  accommodate  the  increased 
coolant  flow. 

3.  Extra  lines  from  the  top  ends  of  the  condenser  to  the  cold  trap  need  to  be  added. 
This  will  ensure  that  no  isolated  pockets  of  noncondesibles  exist  in  the  condenser. 

B.  EXPERIMENTAL  RECOMMENDATIONS 

1.  -The  correlation  for  the  small  diameter  HEATEX  element  must  be  re-investigated. 
This  may  require  obtaining  additional  data  from  CAL  GAVIN  or  designing  an 
experiment  at  the  Naval  Postgraduate  School  which  can  be  used  to  obtain  the  re¬ 
quired  data. 

2.  The  correlation  used  for  the  twisted  tape  insert  also  needs  to  be  re-evaluated  in 
light  of  the  large  inundation  effects.  As  with  the  HEATEX,  this  may  require  that 
additional  experiments  be  carried  out  at  the  Naval  Postgraduate  School. 

3.  Once  a  reliable  correlation  is  obtained,  the  experiments  conducted  on  the 
copper/nickel  finned  tubes  need  to  be  repeated. 

4.  Experiments  need  to  be  conducted  using  both  titanium  finned  tubes  as  well  as 
titanium  KORODENSE  tubes.  This  data  can  then  be  compared  to  that  obtained 
with  the  copper/nickel  finned  tubes  and  the  copper/nickel  KORODENSE  tubes  to 
determine  whether  titanium  tubes  can  deliver  the  required  performance. 

5.  Smooth  copper  tubes  should  be  wrapped  with  different  wire  diameters  at  different 
pitches  in  order  to  determine  an  optimal  pitch-to-wire  diameter  ratio. 

6.  Experiments  need  to  be  conducted  on  wire  wrapping  of  KORODENSE  tubes  which 
have  a  different  pitch.  These  experiments  should  be  based  on  results  obtained  from 
the  smooth  copper  tube  experiments. 

7.  Experiments  need  to  be  repeated  using  R-1I4  and  possible  alternate  refrigerants 
that  the  Navy  is  interested  in  such  as  R-24. 

8.  A  KORODENSE  type  tube  which  is  roped  on  the  inside  and  finned  on  the  outside 
needs  to  be  developed  and  tested  since  calculations  have  shown  that  this  type  of 
tube  can  lead  to  smaller  condensers. 
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APPENDIX  A.  FLOWMETER  CALIBRATION 


The  flowmeters  used  to  measure  flow'  through  the  main  condenser  tubes  were  cali¬ 
brated  in  the  following  manner.  The  meters  w'ere  disconnected  from  the  condenser  tubes. 
An  empty  55  gallon  drum  w’as  placed  on  a  scale  (resolution  0.5  lbs).  The  condenser 
pump  was  started  with  flow  through  the  bypass. 

Flowmeters  were  calibrated  at  0  °C  and  24  °C.  Each  flowmeter  was  initially  opened 
to  maximum  flow.  The  flow  w'as  then  throttled  back  to  10%.  The  weight  of  fluid  in  the 
drum  was  recorded  and  the  timer  started.  The  weight  was  then  recorded  at  the  end  of  the 
calibration  time.  This  procedure  w’as  repeated  in  10%  increments  up  to  100%  flow. 
Flowmeter  number  2  was  only  calibrated  up  to  90%  flow  since  a  mechanical  stop  pre¬ 
vented  it  from  going  to  '  00%.  The  calibration  runs  were  then  repeated  from  the  maxi¬ 
mum  flow  back  to  10%  flow  in  10%  increments.  The  mass  flow  rate  was  then  calculated 
in  kg 'sec  based  on  an  average  of  the  two  readings.  The  data  for  the  flowmeter  cali¬ 
brations  as  a  function  of  nominal  flow'  rate  are  show'n  in  Table  4. 


Table  4.  MASS  FLOW  RATE  (KG/SEC)  AT  0  AND  24  C. 


Flow'  Meter  A 

Flow'  Meter  B 

Flow  Meter  C 

Flow'  Meter  D 

N  ommal 
Flow  Raie 

(%) 

o*c 

24*C 

O'C 

24*C 

0*C 

B 

O’C 

24*C 

10 

0.0149 

0.0172 

0.0127 

0.0181 

0.0141 

0.0179 

0.0253 

0.0318 

20 

0.0363 

0.0403 

0.030S 

0.0408 

0.0374 

0.0391 

0.0513 

0.0613 

30 

0.0544 

0.0621 

0.0531 

0.0626 

0.0566 

0.0616 

0.0798 

0.0894 

40 

0.0794 

0.0851 

0.0739 

0.0844 

0.0793 

0.0899 

0.1129 

0.1216 

50 

0.1003 

0.112 

0.0953 

0.1102 

0.1000 

0.1103 

0.1406 

0.1555 

60 

0.1179 

0.1339 

0.1134 

0.1295 

0.1211 

0.1318 

0.1728 

0.1823 

70 

0.1388 

0.1556 

0.1379 

0.1506 

0.1427 

0.1552 

0.1975 

0.2114 

80 

0.1563 

0.1769 

0.1533 

0.1715 

0.1639 

0.1716 

0.2261 

0.2409 

90 

0.1846 

0.2028 

0.1799 

0.1912 

0.1813 

0.1975 

0.2461 

0.2667 

100 

0.2019 

0.2151 

0.2034 

0.2183 

0.2788 

0.2924 
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A  least  squares  linear  regression  was  performed  for  each  flowmeter  at  each  of  the 
two  temperatures  for  which  the  calibration  runs  were  carried  out.  The  linear  regression 
equation  takes  the  following  form: 


m  =  a -h  bN 

where  a  is  the  y-intercept  in  kg/s,  b  is  the  slope  in  kg/s/%  and  N  is  the  flowmeter  setting 
in  %.  The  results  are  shown  in  Table  5. 


Table  5.  FLOWMETER  CALIBRATION  REGRESSION  RESULTS. 


Flow  .Meter  A 

Flow  Meter  B 

Flow  Meter  C 

Flow  Meter  D 

0  'C 

24  'C 

0  ‘C 

24  ‘C 

0  'C 

24  ‘C 

0  ‘C 

24  ‘C 

Slope 

0.00206 

0.00225 

0.00204 

0.00216 

0.00208 

0.0022 

0.0028 

0.0029 

Y  intercept 

-0.00414 

■0.00329 

-0.00615 

-0.00138 

-0.0036 

-0.0021! 

-0.00122 

0.0048 

In  order  to  obtain  flowrates  at  any  intermediate  temperatures,  a  simplified  interpo¬ 
lation  procedure  was  used.  The  results  of  the  calibrations  for  the  four  flowmeteres  are 
shown  in  Figure  89,  Figure  90,  Figure  91,  and  Figure  92. 


146 
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APPENDIX  B.  EMF  VERSUS  TEMPERATURE 


The  EMF  read  from  the  thermocouples  must  be  converted  into  a  temperature  for 
proposes  of  calculation.  This  is  accomplished  using  a  7**  order  polynomial  which  has  the 
general  form: 

r=  C(0)  +  C{I)V’ 

where  V  is  the  EMF  reading  in  volts,  and  I  has  values  from  1  to  7.  The  leading  coefii- 
cients  are  given  in  Table  6. 

Figure  93  shows  the  relationship  between  EMF  and  temperature. 


Table  6.  LEADING  COEFFICIENTS  FOR  CONVERSION  OF 


EMF  TO  TEMPERATURE. 


Leading  Coefficient 

Value 

QO) 

0.10086 

C(n 

25727.944 

C(2) 

-767345.8 

C(3) 

78025595.8 

C{4) 

-9247486589 

C(5) 

6.977.rl0" 

C{6) 

-2.66jc10'3 

C(7) 

3.9jc10'" 
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EMF  (MICROVOLTS) 

-2000.0  -1000.0  0.0  1000.0  2000.0  3000.0  4000.0 


EMF  VERSUS  TEMPERATURE 


Figure  93.  EMF  versus  temperature. 
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APPENDIX  C  PROPERTIES  OF  ETHYLENE  GLYCOL/WATER 

MIXTURE 

The  physical  and  thermodynamic  properties  of  the  ethylene  glycol/water  mixture 
were  determined  using  equations  and  figures  from  Cragoe  [Ref.  56]  and  Gallant  [Ref. 
57). 

The  density  of  the  ethylene  glycol/water  mixture  is  calculated  in  lines  2490  to  2530 
of  the  computer  program.  Density  as  a  function  of  temperature  for  various  concen¬ 
trations  of  ethylene  glycol  are  shown  in  Figure  94. 

The  kinematic  viscosity  of  the  ethylene  glycol/water  mixture  is  calculated  in  lines 
2370  to  2420.  Figure  95  shows  the  kinematic  viscosity  plotted  as  a  function  of  temper¬ 
ature  for  various  ethylene  glycol  concentrations. 

The  heat  capacity  is  calculated  in  lines  2430  to  2480.  Figure  96is  a  plot  of  heat  ca¬ 
pacity  as  a  function  of  temperature  for  different  ethylene  glycol  concentrations. 

The  thermal  conductivity  is  calculated  in  lines  2560  lo  2610  of  the  program.  Values 
of  the  thermal  conductivity  as  a  function  of  temperature  are  plotted  for  various  ethylene 
glycol  concentrations  in  Figure  97. 
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DENSITY  (KG/M**3) 

1000  1025  1050  1075  1100  1125  1150 


DENSITY 


Figure  94.  Density  of  ethylene  g!ycoI/«ater  mixture. 
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KINEMATIC  VISCOSITY  (M**2/SEC)  *10’ 

0.0  5.0  10.0  15.0  20.0  25.0  30.0  35.0  40.0  45.0 


KINEMATIC  VISCOSITY 


TEMPERATURE  (C) 


Figure  95.  Kinematic  vi.scosity  of  ethylene  glycol/water  mixture. 
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HEAT  CAPACITY  (J/KG) 
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Figure  96.  Thermal  heat  capacity  of  ethylene  glycol/watcr  mixture. 
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THERMAL  CONDUCTIVITY  (W/M  K) 

0.20  0.25  0.50  0.35  0.40  0.45  0.50  0.55  O.SO 


THERMAL  CONDUCTIVITY 


Figure  97.  Thermal  conducdvit}-  of  ethylene  glycol/water  mixture. 
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APPENDIX  D.  PHYSICAL  AND  THERMODYNAMIC  PROPERTIES  OF 

R-113 


The  physical  and  thermodynamic  properties  of  R-113  were  calculated  based  on 
equations  supplied  by  Chapman  [Ref.  58|. 

The  heat  capacity,  C,,  of  R-1 13  was  calculated  from  the  equation: 

Cp  =  (929.0 -f  1.037) 

where  T  is  in  “C  and  C,  is  in  kJ/kg  K.  Figure  98  show's  C,  as  a  function  of  temperature 
for  R.113. 

The  dynamic  viscosity  for  R-113  is  calculated  from  the  equation: 

503 

_5  (7'-2.15) 

M=  1.34jfl0  10 

where  T  is  in  K  and  ^  is  given  in  kg/m  s.  The  relationship  between  m  and  temperature 
is  shown  in  Figure  99. 

The  thermal  conductivity  of  R-1 13  can  be  calculated  from: 

k  =  1.7308(4.846;«:10~^  -  Fx  6.57x10*^) 

where  T  is  in  °F  and  K  is  in  W/m  K.  Figure  100  shows  the  thermal  conductivity  as  a 
function  of  temperature  for  R-113. 

The  density  of  R-1 13  can  be  calculated  from: 

1.62jc10^-  Tx  (2.219-}- 7x  2.358x10"^) 

where  T  is  in  ®C  and  p  is  in  kglm\  Density  of  R-113  is  shown  as  a  function  of  temper¬ 
ature  in  Figure  101. 

The  latent  heat  of  R-113  can  be  calculated  from  the  equation: 

hfg  =  2326.1(70.55  -  i  x  (0.04838  -I-  1.26xl0~^7)) 

where  T  is  in  °7  and  is  in  J/kg.  Figure  102  show’s  the  relationship  bctw'een  latent  heat 
and  temperature  for  R-113. 
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HEAT  CAPACITY  OF  R-113 


Figure  98.  Heat  capacity  versus  temperature  for  R-113. 
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fl.O  7.0 


ure  99. 


Viscosity  as  a  function  of  temperature  for  R-113. 


K  (W/M  K) 

0.04  O.OS  0.00  0.07  0.00  0.09  0.10 


THERMAL  CONDUCTIVITY  OF  R-113 


ZO.O  Z5.0  30.0  35.0  40.0  45.0  50.0  55.0  00.0 

TEMPERATURE  (C) 


Figure  100.  Thermal  Conductivity  of  R-113  as  function  of  temperature. 
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HFG  (KJ/KG) 


APPENDIX  E.  SAMPLE  CALCULATION 


A  sample  calculation  was  conducted  on  run  1  of  data  set  SM06.  This  run  was  carried 
out  on  smooth  copper  tubes  with  the  HEATEX  insert  installed.  The  sample  calculation 
was  performed  for  the  top  tube  only. 

Temperatures  were  recorded  as  emf  s  using  copper/ constantan  thermocouples.  EMF 
values  were  converted  to  temperatures  using  the  equation  shown  in  Appendix  B. 
Table  7  summarizes  the  results. 


Table  7.  EMF  AND  TEMPERATURES  FOR  RUN  1  DATA  SET  SM06. 


Thermocouple 

E.MF  (microvolts) 

Temperature  (C) 

T(0) 

190S 

46.83 

T(l) 

1895 

46.54 

T(2) 

1909 

46.86 

T(3) 

1922 

47.16 

T(4) 

1918 

47.06 

T(5) 

1919 

47.099 

T(6) 

367 

9.44 

T(7) 

369 

9.496 

T(8) 

370 

9.52 

T(9) 

377 

9.7 

T(10) 

893 

22.52 

T(il) 

893 

22.53 

T(I2) 

831 

20.99 

T(13; 

831 

20.99 

T(14, 

798 

20.18 

T{15) 

798 

20.18 

T(16) 

853 

21.54 

T(17) 

853 

21.54 
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For  tube  A,  the  temperature  difTerential  is  calculated  by: 


^T  = 


7(10)+  7(11) 
2 


-  7(6)=  13.086  C 


The  average  temperature  is  then  calculated  from: 

Tflvg  =  ^6)  +  A7  X  0.5  =  15.98  C 

Based  on  the  ethylene  glycol/water  mixture  physical  properties  (Appendix  C),  and  using 
and  average  temperature  of  15.98  C  and  an  ethylene  glycol  concentration  of  54%,  the 
following  fluid  properties  are  obtained: 


p,  =  1071.3  kgjm^ 

=  0.0051  kgim  s 
q^  =  3l96.99  Jl kg  K 
k,  =  0.3142  IVImk 
Pr,  =  43.57 


Based  on  the  calibration  curves  for  flowTneter  A,  the  mass  flowrate  of  coolant  cor¬ 
responding  to  a  setting  of  15.74  can  be  calculated.  A  simplified  interpolation  procedure 
is  used  to  account  for  temperature  differences.  Based  on  this  calculation,  we  obtain  a 
mass  flow  rate  of  0.2979  kg  s  for  this  run. 

The  coolant  velocity  can  be  calculated  from: 


where  the  inside  cross-sectional  area  is  given  by: 

^.  =  -^(0.013259)^  =0.000138 


and 


V 


c 


0.(>2979 

!1071.3)(0.000138) 


=  0.201  m!s 
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The  coolant  Reynolds  number,  Re„  is  calculated  from: 


RCf.  ^ 


=  =  559.89 


4.76jc10 


-6 


The  heat  transferred  to  the  coolant  is  calculated  from: 


q  =  mCp_^r=  (0.02979)(3196.99)(I3.085) 
^=  1246.19  IV 

and  the  heat  flux  is  then  calculated  from  : 


where 

=  nd^L  =  ;r(0.0 15875X1.21 92)  =  0.0608 


where  L  is  the  condensing  length  of  the  tube.  Based  on  this  equation,  we  obtain: 


<i"o 


1246.19 

0.0608 


=  20494.9  n'lm^ 


In  order  to  calculate  the  inside  and  outside  heat  transfer  coefllcients,  the  physical 
and  thermodynamic  properties  of  R-113  must  be  calculated  (Appendix  D).  These  fluid 
properties  are  based  on  a  reference  or  condensate  film  temperature.  In  order  to  obtain 
this  film  temperature,  the  wall  temperature  is  needed.  To  obtain  this,  an  iteration  is 
carried  out  with  an  initial  value  of  /?„  assumed  (in  this  case  1000  Wjm?  K).  The  wall 
temperature  is  then  calculated  from: 


T^wau—  7 


sat 


=  46.925 


20494.9 

1000 


26.43X 
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The  film  temperature  is  then  calculated  from: 


'  wall 


or 


46  025  7 

+  Y  (26.43)  =  33.26“C 

Based  on  the  equations  of  fluid  properties  for  R-113  (Appendix  D),  the  following  values 
were  obtained  for  the  condensate: 


hf^  =  147036.5  Jlkg 
k  =  0.0734  Wlm  K 
p  =  1544.34  kgjm^ 
p  —  6.029jrl0~*  kgim  s 

Using  these  fluid  properties  together  with  equation  (5-15),  we  obtain: 

=  1907.06  IVjrnK 

Using  an  iterative  procedure,  we  adjust  the  initial  guess  of  h,  by  taking  the  average  of 
the  calculated  and  guessed  value  of  h,.  The  wall  and  film  temperatures  are  then*recalcu- 
laied  and  new  fluid  properties  for  R-113  are  obtained.  A  new  value  of  is  then  calcu¬ 
lated.  This  procedure  continues  until  the  newly  calculated  and  previosuly  calculated 
values  are  within  0.1%.  For  this  run,  we  obtained: 

/!„  =  1251  IVIrn  K 

The  next  step  is  to  find  a  value  for  the  overall  heat  transfer  coefficient,  L\,  where: 

l '  =  ^  ^ 

^  LMTD 


where,  for  this  run, 


LMTD  =  30.48'C 


and 
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,,  20494.9  ,  „„  2 

Ua  =  ■  3Q^g  =  672.5  WIm  K 


The  inside  heat  transfer  coefficient,  h„  can  be  obtained  from  a  correlation  for  the 
Nusselt  number  for  single  phase  coolant  flow  in  a  tube.  This  Nusselt  number  is  obtained 
from  a  correlation  (in  this  case)  for  the  HEATEX  element  where: 

Nu^  =  0.226{Ref-^\Prf'^^ 

Nu,  =  0.226(559.89)-*^(43.75)"‘®  =  78.41 


and 


NuA  (78.41)(0.3742) 

4  “  0.013259 

;i,  =  2213.07  Wjm^  K 

The  outside  heat  transfer  coefficient  is  calculated  from  equation  (5-12)  where: 


J _ 

Vo  d,h, 


The  wall  resistance,  R„,  is  defmed  as: 


R 


m 


2Lk 


,  (  0.015875  \ 
V  0  013259  ) 

2(1.2192)(386) 


KIW 


Therefore, 


_ 1_ 

1 _ 0.015875 

672.49  (0.013259)(2213.07) 


(1.91;fl0~^)(0.0608) 


ho  =  1070.2  Wfm^  K 
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Figure  103  is  a  copy  of  the  computer  printout  for  this  run.  The  small  differences 
seen  in  the  computer  calculations  versus  these  sample  calculations  are  the  result  of 
roundoff  error. 
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Data  set  nunber  =  1 


RESULTS  FOR  TUBE  NO.  1 


Mass  flobj  rate  = 
Inlet  temperature  = 
Saturation  temp  (Deg  C>  = 
DELT  temp  Dif. 

Log.  Mean  temp  Dif.  = 
Heat  flu.'.  * 
Resistance  of  Tube  Metal= 
Prandtl  number  = 
Reynolds  number  = 
Reynolds  number  H&B  S  = 
Inside  h. t .c .  * 
Inside  NUSSULT  NO. 

OVERALL  H. t.c.  ( Uo  ) 


2.980E-02 

9.443E+00 

4 .  G95E+01 
1.307E+01 
3.048E+01 
2.048E+04 
1.913E-04 
4 . 359E+01 

5. B08E+02 
6.745E+02 
2.216E+03 
7.852E-f01 
G.720E+02 


TUBE 

9 

1 


FM  UEG 
(7.)  <  m/s  ) 

15.74  0.20 


DELT  Uo  HD 

(K)  (W/m''2.K) 

15.074  6.720E+02  1.068E+03 


Figure  103.  Computer  printout  of  results  for  run  1  data  set  SM06. 


HNUS 

1.251E+03 
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APPENDIX  F.  UNCERTAINTY  ANALYSIS  FOR  Uo 

Run  number  1  of  data  set  SM06  was  also  chosen  for  the  uncertainty  analysis.  The 
analysis  was  only  conducted  on  The  measured  and  calculated  parameters  found  in 
the  sample  calculation  (Appendix  E)  were  therefore  used  in  this  section.  In  order  to  as¬ 
sess  the  effects  of  coolant  velocity  on  the  uncertainty  in  the  measurement  of  U,  ,  an 
uncertainty  analysis  was  also  performed  on  run  number  1 1  of  data  set  SM06.  This  run 
had  a  coolant  velocity  of  1.2  m/s  as  opposed  to  0.2  m/s  in  run  number  1. 

The  uncertainty  analysis  utilizes  the  procedure  suggested  by  Kline  and  McClintock 
[Ref  54],  This  procedure  states  that  if 

R  =  . Jfn) 


then  the  uncertainty  in  R,  namely,  SR  is  given  by  the  equation: 


SR^ 


+ 


0.5 


where  x„  is  the  measured  variable  and  Sx„  is  the  uncertainty  in  the  measured  variable. 

The  uncertainty  in  the  temperature  measurements  is  due  to  uncertainty  in  the  volt¬ 
age  measured  by  the  thermocouples.  For  the  thermocouples  used  corresponds  to  0.1 
'C.  The  uncertainty  in  in  this  thesis,  this  value  was  assumed  to  be  4  microvolts  or  0.1 
C.  The  uncertainty  in  AT,  T,„  and  coolant  inlet  and  outlet  temperatures,  and  7„  , 
can  be  calculated  as  follows: 


^  JflOH^TlJO 

^  CO  2 

Taking  the  partial  derivatives  we  obtain: 

_  1  ■ 

ar(io)  2 


likewise, 


a7{ii) 


1 

2 
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The  uncertainty  in  the  measurement  of  r„  is  thus; 


dZ, 


57(10) 


ST]  + 


57(11) 


Based  on  the  thermocouple  uncertainty,  ST  —  0.1  C,  we  obtain: 

sT,^  =  o.omc 

The  coolant  inlet  temperature  is  calculated  from  a  single  thermocouple,  number  6  for 
tube  A.  The  uncertainty  in  this  measurement  is  calculated  as: 

oTg  _ 

57(6) 


and, 


57,,= 


IZk. 

57(6) 


or, 

57„  =  0.1  C 

Finally,  the  uncertainty  in  A 7  is  calculated  from: 

5A7=[(57j'  +  (57/]°' 


and, 


5A7=  0.1347  C 

Coolant  velocity  is  calculated  from: 

V  =  ^ 

"  PcA, 

In  this  run,  ni  was  calculated  to  be  0.02979  kg.'s.  The  uncertainty  in  the  reading  of  the 
flowmeter  is  defined  as  the  scale  interpolation.  This  value  corresponds  to  one-half  the 
value  of  the  smallest  marked  increment.  In  this  case,  the  scale  interpolation  factor,  5,„ 
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is  0.5%  which  corresponds  to  0.00101  kg/s  resolution.  In  addition,  a  time-wise  jitter, 
(3y,  of  0.5°/o  was  noted  during  the  runs.  Therefore,  the  uncertainty  in  m  is  given  by: 


m  \  m  \  rn  J 


=  0.0479 
m 

The  uncertainty  in  the  cross-sectional  area  of  the  tubes  was  estimated  from: 


Al  r  6d; 


where  is  given  as  0.1  mm  based  on  tolerances  supplied  from  the  manufacturer. 
Therefore, 

8  A, 

^  =  0.0107=  1.07% 


The  uncertainty  in  the  coolant  velocity  is  now  given  by: 


_ ,  8m  ..2 

“L  ^ 


8Ai  , 


^  =  0.049  =  4.9  % 
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The  uncertainty  in  the  calculation  of  coolant  Reynolds  number  is  given  by; 


L  ^  ^  ^ 


or  substituting  appropriate  numbers  we  find 

SRe, 

=  0.0497  =  4.97  % 

Re, 

The  uncertainty  in  the  calculation  of  the  heat  transferred  to  the  coolant  is  related 
to  the  uncertainty  in  the  measurements  of  coolant  mass  flow  rate  and  coolant  temper¬ 
ature  rise  where: 


■  =  0.0489  =  4.89  % 


The  uncertainty  in  the  heat  flux  is  then; 


fo  ^  q  ^ 


where  the  uncertainty  in  A,  is  given  by: 


)A„  r  Sd„  ,  SI 


Here,  the  uncertainty  i*'  the  length  of  the  tube,  6L  ,  is  assumed  to  be  5  mm  while  dd,  is 
assumed  to  be  0.1  mm  (again  from  given  tolerances).  Substitution  of  the  appropriate 
numbers  fields; 


^q"o 

=  0.0496 

?  o 
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Finally,  since  U,  is  given  by: 


» , _ ^  o 

LMTD 

the  uncertainty  in  the  LMTD  must  be  calculated.  The  LMTD  is  given  by: 

LMTD  =  — 

In 

In  order  to  calculate  the  uncertainty  in  the  measurement  of  the  LMTD,  the  following 
equations  were  used: 


AT 

T^sat  ~  ^c.i 
T  —T 

*■  sat  ^  c,o 


6  LMTD 
a  AT 


1 

T^sat  ~ 

Lai  -  L,o 


dLMTD 

SLai 


T  —T 

*  sat  *  c,i 

T  -  T 

*  sat  ‘  c,o 


{Tsai-  LMTsai-  Lj) 


dLMTD  _  AT 


dLMTD 

In 

r  T  —  r  •  1' 

*  sat  ‘  c,i 

T  -T 

‘  sai  *  C.0 

AT 

'  2 

(  Lat  ~  T^c,o. 

in 

~  T  _  T  . 

*  sat  *  cj 

2 

iLai-  TJ 

T  —T 

*  sat  *  c,o 

The  uncertainty  in  the  L.MTD  is  therefore  given  by: 


SLMTD  = 


dLMTD 

dAT 


dLMTD 

dT..„ 


+ 


dLMTD 


+ 


dLMTD 


For  the  sample  run  with  a  coolant  velocity  of  0.2  m's,  the  uncertainty  in  the  measure¬ 
ment  of  the  LMTD  is: 

j. 

dLMTD  =  [[(2.329)(0.1347)]^  +  [(  -1.0157)(0.0778)]^  +  [(  -2.9097)(0.0778)]^  [(L894)(0.1)]^]^ 
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or 


6LMTD  =  0.446  K 


and 


SLMTD 

LMTD 


0.446 

30.48 


=  0.0146=  1.46% 


The  uncertainty  in  the  overall  heat  transfer  coefficient,  is  then  given  by; 


6U, 

7  V-i-/ 

'  SLMTD  \2 

b'o 

,  LMTD  ) 

or 


=  [(0.0496)^  +  (0.0146^  ]i 


and 


6  b’ 

— ^  =  0.052  =  5.2  % 

Table  7  summarizes  the  results  of  the  uncertainty  analysis  for  the  smooth  copper  tubes 
with  the  HEATEX  insert  for  coolant  velocities  of  0.2  and  1.2  m,'s  respectively. 

The  uncertainty  analysis  neglects  any  uncertainty  in  the  physical  properties  of  the 
coolant  or  the  R-1 13.  For  the  most  part,  this  is  probably  a  reasonr7ble  assumption.  The 
exception  to  this  may  be  the  viscosity  due  to  its  sensitivity  to  temperature.  Hence,  the 
uncertainty  reported  here  is  an  underestimate. 

It  is  curious  that  the  relative  magnitudes  of  the  uncertainty  for  the  low  and  high 
coolant  velocities  are  essentially  the  same.  Two  different  mechanisms  dominate  in  the 
calculated  uncertainty  at  low  and  high  coolant  velocities.  In  terms  of  the  mass  flow  rate, 
the  time-wise  jitter  and  scale  interpolation  terms  are  the  same  for  both  coolant  velocities. 
However,  the  actual  mass  flow  rate  is  less  at  the  lower  flow  rates.  Hence,  the  uncertainty 
in  the  mass  flow'  rate  calculation  is  more  significant  at  the  lower  coolant  velocities.  At 
higher  flow  rates  the  uncertainty  in  the  calculation  of  the  L.MTD  becomes  the  dominant 
term.  This  is  because  the  coolant  temperature  rise  is  smaller  at  high  coolant  velocities 
but  the  uncertainty  in  the  temperature  measurements  remains  the  same.  The  mass  flow 
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Table  8.  SUMMARY  OR  RESULTS  FOR  SAMPLE  UNCERTAINTY  ANALY¬ 
SIS. 


Variable 

V,  =0.2  m,'s 

V,  =  1.2  m's 

0.1“C 

o.rc 

0.078‘‘C 

0.078°C 

ST.,, 

0.078°C 

0.078'’C 

SAT 

O.I35'’C 

0.135°C 

dm 

m 

0.048 

0.008 

SA, 

A 

0.01 1 

0.011 

SK 

K 

0.049 

0.013 

SRe. 

Re. 

0.05 

0.015 

Sq 

0 

0.05 

0.015 

SA, 

A, 

0.008 

0.008 

Sq"o 

q"r 

0.05 

0.017 

SLMTD 

LMTD 

0.015 

0.054 

su, 

1', 

0.052 

0.057 

rate  goes  up  so  that  the  uncertainty  in  the  coollant  mass  flow  rate  calculation  decreases. 
Thus,  at  the  higher  coolant  velocities,  the  uncertainty  in  the  calculation  of  the  LMTD 
is  the  dominant  term. 


APPENDIX  G.  PROGRAM  LISTING 
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1000  I  FILE:  DRPC0N7 

1005  I  PURPOSE'  This  program  collects  and  processes  condensation  oata  for  the  t 
ube  bundle. 

1015  !  CREATED:  NOUEMBER  2.  1988 

1020  !  UPDATEl:  APRIL  25  1991  <5.  MEMORY) 

1021  !  UPDATE?:  May  17  1991  <5.  MEMORY) 

1022  I  UPDATE3:  JULY  25,  1991  (R.W,  MAZZONE) 

1023  !  UPDATE4:  13  AUGUST  1991<R.W.  MAZZONE) 

1024  !  UPDATES:  10  OCTOBER  1991  (R.W.  MAZZONE) 

1026  !  CHANGE  H0D=3  AND  USING  CALCULATED  Cl  FROM  WILSON 

1030  BEEP 

1035  PRINTER  IS  1 

1040  PRINT  USING  "4X “SELECT  OPTION”"" 

1045  PRINT  USING  ■■6X,""0  TAKING  DATA  OR  REPROCESING  PREUIOUS  DATA""" 

1050  PRINT  USING  "6X,""1  PLOTTING  H  US  DELTA-T . 

1055  PRINT  USING  "6X,""2  PLOTTING  HRAT  US  N . 

1060  PRINT  USING  “GX,""3  PLOTTING  WILSON . 

1065  PRINT  USING  "GX,""4  PURGE  FILES . 

1070  PRINT  USING  "GX,""5  XYREAD . 

1075  PRINT  USING  "GX,""6  NUSSELT  ESTIMATE""" 

1080  PRINTER  IS  701 

1085  INPUT  Icall 

1090  IF  lcall»0  THEN  CALL  Mam 

1095  IF  Icall«l  THEN  CALL  Plot2 

1100  IF  Icall-2  THEN  CALL  Plotl 

1105  IF  Icall=3  THEN  CALL  Plot3 

1110  IF  Icall=4  THEN  CALL  Purge 

1115  IF  Icall=5  THEN  CALL  Xyread 

1120  IF  Icall=6  THEN  CALL  Nusselt 

1125  END 

1130  SUB  Main 

1135  COM  /Cc/  C(7) 

1140  COM  /Fid/  Ift 

1145  COM  /Nus/  I  in , Tsat , Qdp 1 , Hnus ,Kf ,Rhof , Hf g ,Muf , Do , 1 1 ube 
1150  COM  /Will/  Doa( 4  ) , Dia( 4  ) , Kma< 4  ) , lac t , Droot ( 4  ) 

1155  COM  /Wil2/  Del t a , I  sat jNset 5 ,Hod,Cia( 3 , 3  ) , Alpaa( 3  ) 

1160  DIM  Emf(17>,Tp(4),T<  17),Ho<4),Qdp(4>,Uo<4),Pc(4) 

1215  DATA  1.0, 1.0, 1.0, 1.0 

1216  DATA  5.172,5.172,5.172,5.172 

1217  DATA  0.226,0.226,0.226,0.226 

1218  DATA  0.063,0.063,0.063,0.063 

1220  READ  Cia( *  ) 

1225  DATA  0.10086091,25727.94369,-767345.8295,78025595.81 

1230  DATA  -9247486589,6.97688611 , -2.66192613,3. 94078E14 

1235  READ  C.(  *  ) 

1240  DATA  0.015875,0.014000,0.015798,0.0159,0.0 

1245  DATA  0.013259,0.010160,0.012776,0.01346,0.0 
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1250  DATA  386.0,42.975,42.975,21.9,0.0 

1251  DATA  0.0,0.014,0.0, .0141 ,0.0 

1255  DATA  0.0005588,3 

1260  READ  Doa(  *  ) ,  Dia(  ♦  )  ,Krna<  *  )  ,Droot  (  *  ) , Del ta ,Hod  I  Hod=H/Di 

1265  L=1.2192  !  Condensing  length 

1270  J5et=0 

1271  Okaccpt =1 

1275  BEEP 

1280  INPUT  "ENTER  MONTH,  DATE  AND  TIME  ( MM = DD = HH = MM = SS > " , Dt g$ 

1285  OUTPUT  709: "TD" ;Dtg* 

1290  BEEP 

1295  INPUT  “SELECT  OPTION  (0=DAQ,  1=*FILE  )" ,  Im 

1300  Ihard*l 

1305  BEEP 

1310  INPUT  “WANT  A  HARDCOPY  PRINTOUT  < 1-DEF*YES,0=N )“ , Ihard 

1315  BEEP 

1320  INPUT  “SELECT  < 0=R-1 14 , 1=STEAM , 2»R-1 13 , 3=EG ) " , I f t 
1325  Iin=l 

1330  l5at=2 

1335  BEEP 

1340  INPUT  "SELECT  SAT  TEMP  MODE  < 0»LIQ , 1=UAP , 2=( LIQ+UAP  )/2=DEF ) " , I  sat 
1345  IF  Ihard=l  THEN  PRINTER  IS  701 

1350  — IF  ln=0  THEN 

1355  BEEP 

1360  INPUT  “GIUE  A  NAME  FOR  THE  NEW  DATA  FILE“,File$ 

1365  CREATE  BOAT  File$,20 

1370  ASSIGN  @File  TO  File$ 

1375  BEEP 

1380  INPUT  “ENTER  TUBE  CODE  (0=SMOOTH  CU,1='FINNED  CU ,2=K0R0DENSE , 3=TIT  FIN 
)“,nube 

1381  BEEP 

1382  INPUT  "0=NO  INSERT,  1=TWISTED  TAPE,  2=HITRAN1,  3=HITRAN2" , Insert 

1385  BEEP 

1390  INPUT  "ENTER  EG  CONCENTRATION  <WT  PERCENT  )“, Egrat 

1395  ENTER  709:Dtg$ 

1400  OUTPUT  @File;Dtg$ 

1405  OUTPUT  @Fi le : I  tube , Egrat ,Ddl ,Dd2 , Dd3 , Dd4 , Dd5 

1410  Iact=10 

1415  BEEP 

1420  INPUT  "SELECT  < 0=TOP, l=SECOND . . 10=BUNDLE=DEFAULT >" , lact 

1425  PRINT 

1430  PRINT  USING  "10X,“"FILE  NAME:  " " , 12A" ; Fi le$ 

1435  PRINT 

1440  ELSE 

1445  BEEP 

1450  INPUT  “ENTER  NAME  OF  EXISTING  FILE",File$ 

1455  BEEP 

1460  INPUT  "ENTER  NUMBER  OF  DATA  SETS  STORED" , Nset s 

1465  Iwil'l 

1470  BEEP 
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1475  INPUT  "WANT  TO  CALL  WILSON?  ( 1=DEFAULT=YES , 0=NO  ) " , Iwi 1 

1480  IF  Iu':l  =  l  THEN 

1485  BEEP 

1490  INPUT  “WHICH  TUBE  ( 0»TOP , l=SECOND , . . , 10=BUNDLE  ) " , lact 

1491  INPUT  "0=NO  INSERT,  1=TWISTED  TAPE,  2=HITRAN1,  3=HITRAN2 ",  Insert 

1493  CALL  Wilson 

1494  IF  Iact=10  THEN 

1495  FOR  lcount=0  TO  3 

1498  Cia( Insert , I count  )*Cia< Insert ,0  ) 

1497  Alpaa( Icount  )*Alpaa< 0  ) 

1498  NEXT  Icount 

1499  END  IF 

1500  IF  Ihard'l  THEN  PRINTER  IS  701 

1505  PRINT 

1510  PRINT  USING  "10X,““FILE  NAME:  " “ , 12A" ; Fi le$ 

1515  PRINT 

1520  IF  Iact>9  THEN 

1521  FOR  11=0  TO  3 

1522  PRINT  USING  " 10X ," “RESULTS  FOR  TUBE  NO . " " , 3D " : 1 1  +  1 

1525  PRINT 

1525  PRINT  USING  " 10X INSIDE  COEFFICIENTS:  " " , DD . 3D" ; Cia( Insert , I 1 

) 

1530  PRINT  USING  "10X, ""ALPHAS:  “ " , 4( IX , MZ . 3DE , 2X ) " : Alp 

aa< II  ) 

1531  NEXT  II 

1535  ELSE 

1540  PRINT  USING  " 10X ,"" INSIDE  COEFFICIENT  FOR  TUBE  "",D,"":  ‘"‘,00.3 

D" ; Iact  +  1 ,Cia< Insert,Iact  ) 

1545  PRINT  USING  "10X," "ALPHA  FOR  TUBE  "",D,"":  "",DD.3 

D" ; Iact  +  1 , Alpaa< lact  ) 

1550  END  IF 

1555  ELSE 

1580  BEEP 

1581  INPUT  "0=TOP,  1=SEC0ND . 10=BUNDLE" , lact 

1582  INPUT  "0-SMOOTH  CU,  1=FIN  CU,  2-KOROD,  3=FIN  TITANIUM" , Itube 

1583  INPUT  "0=NO  INSERT,  1=TWI5TED  TAPE,  2=HITRAN1,  5=HITRAN2 ",  Insert 

1585  INPUT  "ENTER  Cl  UALUE  " ,Cia( Insert , 1 1) 

1570  END  IF 

1575  ASSIGN  @File  TO  File$ 

1580  ENTER  @File;Dtg* 

1585  ENTER  @Fi le ; I  tube , Egrat , Ddl ,Dd2 ,Dd3 , Dd4 , DdS 

1588  INPUT  "0-SMOOTH  CU,  1=CUNI  FIN,  2-K0R0DEN5E,  3-FIN  TITAN  ", Itube 
1590  END  IF 

1595  Iout=l 

1800  BEEP 

1805  INPUT  “WANT  TO  CREATE  AN  OUTPUT  FILE?  ( 1-DEF-YES , 0-N0  ) " , lout 

1810  IF  Iout-1  THEN 

1815  BEEP 

1820  INPUT  "ENTER  A  NAME  FOR  OUTPUT  FILE",Fout$ 

1825  CREATE  BOAT  Fout$,5 


181 


1630 

1635 

1640 

1645 

1646 
1650 
1655 
1660 
1665 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1679 

1680 
1682 
1683 
1685 

1690 

1691 
/s  )'? 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 


ASSIGN  ©Foul  TO  Fout$ 

END  IF 

I 

Do=Doa( I  tube ) 

Dol =Doa( 1 1 ube  ) 

Di=Dia< I  tube  ) 

Km“Kma< I  tube  ) 

Ax=PI*Di "2/4  !  Cross-sectional  area 

Ao=PI *Do*L 

'  Rn=Do*L0G(Do..  Di  )/<  2*Km  ) 

IF  Itube=l  THEN 
Dol=D''oot  <  I  tube  ) 

END  IF 

IF  Itube=3  THEN 

Ool=Droot< Itube ) 

END  IF 
Ao=PI*Do*L 

Rm=LOG<Dol/Di  )/<2*L*Kni) 

Al=PI*Dol*L 

I 

IF  In-0  THEN 
PRINTER  IS  1 
BEEP 

INPUT  “WHAT  IS  REQUIRED  NOMINAL  COOLANT  UELOCITY  IN  n/s  (MAX.  =  1.4  n 

,  Uegst 

OUTPUT  709; ”AR  AF6  ALS  UR5“ 

FOR  1-6  TO  9 

OUTPUT  709; “AS  SA" 

Vsun-0 

FOR  J=1  TO  5 
ENTER  709 :E 
Usun-Usun+E 
NEXT  J 

Enf ( I  )=Usun/5 

T(  I  )=FNTv5v(Enf < I ) ) 

NEXT  I 

Tevgl  =  <  T<6  UT(7  )  +  T(8  »+T(  9  )  )/4 
IF  Tavgl<0  OR  Tavgi:>24  THEN 

PRINT  "COOLANT  TEMP.  NOT  IN  RANGE  0  TO  24  C“ 

GOTO  1691 
END  IF 

Rhoegl-FNRhoeg( Tavgl ,Egrat ) 

Mdot 1-Rhoegl ♦Ax ‘Uegst 
Pca0-(Mdotl+. 004 14)/. 00206 
Pca24-< Mdot 1+. 00329 )/. 00225 
Pcb0-(Mdotl+. 00615 )/. 00204 
Pcb24=<Mdotl+.00138 )/.00216 
Pcc0-( Mdot 1+. 0036 )/. 00208 
Pcc24=<Mdotl+. 00301 )/. 00223 
Pcd0=<Mdotl+.00122 )/.0028 
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1720 

1721 

1722 

1723 

1724 

1725 
172B 

1727 

1728 

1729 

1730 

1731 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 
1748 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 
el2 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 


Pcd24=<Mdotl-.0048  )/.0029 

Pc<0  )=Pca0+<  Tavgl*<  Pca24-Pca0  )  )/24 

Pc(  1  )*Pcb0+<Tavgl*(Pcb24-Pcb0)  )./24 

Pc(2  )=Pcc0+(Tavgl*<  Pcc24-Pcc0  )  )/24 

Pc<  3 )=Pcd0+(Tavgl*<Pcd24-Pcd0)  )/24 

PRINT  "SET  FLOWMETER  READINGS  CORRESPONDING  TO: 


PRINT 

USING 

"6X,  " 

OF 

METER 

A  = 

”",DDD.D";Pc(0) 

PRINT 

USING 

"6X,  " 

OF 

METER 

B  = 

""  .DDD.D" :Pc( 1 ) 

PRINT 

USING 

"6X,  " 

“X 

OF 

METER 

C  = 

“",DDD.D";Pc(2) 

PRINT 

USING 

"6X,  " 

"X 

OF 

METER 

D  = 

DDD.D" ;Pc<3 ) 

PRINT 

PRINT  “HIT  CONTINUE  WHEN  READY- 
PAUSE 
Repeat :  ! 

I  PRINTER  IS  701 

Dtld-47.5  I  Desired  temperature  of  liquid 
Ido=l 

ON  KEY  0,15  RECOUER  1734 

PRINT  USING  "4X, ""SELECT  OPTION  . 

PRINT  USING  "6X, ""0=TAKE  DATA  “ " “ 

PRINT  USING  "6X,""1»SET  Tsat  (DEFAULT)  . 

PRINT  USING  '‘4X,““N0TE:  KEY  0  =  ESCAPE""" 

!  Ido  =  desired  option 

BEEP 

INPUT  Ido 

•  Set  default  value  for  input 

IF  Ido>l  THEN  Ido=l 
!  Take  data  option 

IF  ldo=0  THEN  1797 

!  Loop  to  check  saturation  temperature 

IF  Ido=l  THEN 

INPUT  "ENTER  DESIRED  Tsat  ( DEFAULT=47 , 5  C  -  R-113)",Dtld 
!  INPUT  "ENTER  DESIRED  Tsat  (DEFAULT=2.2  C  -  R-114)",Dtld 

Nn=l 

Nrs=Nn  MOD  15 

Nn^Nn+l 

IF  Nrs-1  THEN 

PRINT  USING  "4X,""  DTsat  Tldl  Tvab  Tvat  Dell  D 

Del3  Del4 
END  IF 

i  Read  thermocouple  voltages 

OUTPUT  709; "AR  AF0  AL17  UR5" 

Nend*17 
FOR  1-0  TO  5 

OUTPUT  709; "AS  5A” 

Usum=0 

FOR  J=1  TO  5 
ENTER  709 ;E 
Usum-Usum+E 
NEVT  J 
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1770 

1771 

1772 

1773 

1774 

1775 

1776 
ill! 

1778 

1779 

1780 

1781 

1782 

1783  ! 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 
14 

1793 

1794 

1795 

1796  ' 

1797 

1798 

1799 

1800 
1801 
1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 
1811 
1812 

1813 

1814 

1815 

1816 
1820 
1825 


Emf  <  I  )=Usui*i/5 

T(  I  )=FNTv5v<Emf< I ) ) 

NEXT  I 

FOR  1=6  TO  Nend 

OUTPUT  709: "AS  5A" 

U5un=0 

FOR  J=1  TO  20 
ENTER  709 :E 
Usum=Usum+E 
NEXT  J 

Enf ( I )=Usum/20 
T(  I  )=FNTvsv<Emf(  I  >  > 

NEXT  I 

Compute  average  temperature  of  liquid 

Tliq  =  (T(3)  +  T(4))/2 

Tvap  =  <T<0)  +  T< 1  )+T(2  )  )/3 

Tvat  =  (T<0)+T<  1  )  )/2 

Tliql=T<5) 

Dell  =  <  <T< 10  i+T( 11 >  )/2  )-T<6  ) 

Del2  =  < ( T< 12  )  +  T(13  )  )/2  )-T<7  ) 

Del3  =  <  <T(14  )+T( 15  >  )/2  )-T(8  ) 

Del4  =  ( <  T( 16 )  +  T( 17) )/2  )-T( 9) 

PRINT  USING  "4X,8(MDD.DD,3X ) " ; Dt 1 d , T( 3 ) , T< 2 ) , Tvat ,Del 1 ,Del2 ,Del3,De 

WAIT  2 
GOTO  1755 
END  IF 

TAKE  DATA  IF  lm=0  LOOP 
PRINTER  IS  701 

OUTPUT  709; "AR  AF0  AL17  UR5” 

Nend=17  !  INCREASE  TO  20  IF  FIUE  TUBES  IN  BUNDLE 
FOR  1=0  TO  5 

OUTPUT  709; "AS  SA“ 

U5um=0 

FOR  J=1  TO  5 
ENTER  709 ;E 
Usum=Usum+E 
NEXT  J 

Emf ( I  )=Usum/5 
NEXT  I 

FOR  1=6  TO  Nend 

OUTPUT  709; "AS  SA” 

U5um»0 

FOR  J=1  TO  20 
ENTER  709 ;E 

U5um*U5um+E 
NEXT  J 

Em f ( I  )=U5um/20 
NEXT  I 
ELSE 
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1830 

ENTER  @File;Pc<*  ),Er>if(*),Tp(*) 

1835 

END  IF 

1840  ! 

1845  1 

DATA  ANALYSIS 

1850  ! 

1855 

Nend=17 

I860 

FOR  1=0  TO  Nend 

1865 

T<  I  ^=FNTv5v(Etnf  <  I  l  ) 

1870 

NEXT  I 

1875 

Tvap  =  (T<0)+T<  1  )+T(2))/3 

1880 

Tliq=(T(3)+T(4))/2 

1881 

Tliql=T<5  ) 

1885 

IF  lset=0  THEN 

1890 

T  sal =T1 iq  1 

1895 

END  IF 

1896 

IF  Isat=l  THEN 

1900 

T5at=Tvap 

1905 

END  IF 

1906 

IF  l5at-2  THEN 

1907 

T5al  =  <Tvap  +  Tliq  )/2 

1908 

END  IF 

1925 

Jset  =Jse't  +  1 

1926 

IF  Okaccpt=0  THEN  J5et=j5et-1 

1930 

PRINT 

1935 

PRINT  USING  ''10X,""Data  set  number 

1940 

PRINT 

1945 

lbeg=0 

1950 

Iend=3 

1955 

IF  l3ct<10  THEN 

1960 

Ibeg=Iact 

1965 

Iend=Iact 

1970 

END  IF 

1975 

FOR  I=Ibeg  TO  lend 

1980  1 

Grad=FNGrad< Emf ( 1+6  )  ) 

1981 

Tout  =  (T<2*I  +  10  )  +  T<2*I  +  ll  ))/2 

1985 

DeIt=Tout-T( 1+6  ) 

1990 

Tavg=T( 1+6 )+Delt* .5 

1991  1 

IF  I'lend  THEN 

1992  ! 

Delt=T< 10)-T( 9  ) 

1994  1 

Tavg-T( 10  )-T<  9>/2 

1995  1 

END  IF 

1996 

Rhoeg=FNRhoeg( Tavg ,Egrat  ) 

2000 

Nueg=FNNueg( Tavg.Egrat  ) 

2005 

Mueg=Nueg*Rhceg 

2010 

Cpeg=FNCpeg< Tavg.Egrat  > 

2015 

Keg=FNKeg( Tavg , Egrat  > 

2020 

Preg=Cpeg*Mueg/Keg 

2025 

ridot=FNFmcal(  I ,  T(  1+6  )  .Pcd  >  > 

2030 

Ueg=Mdot / ( Rhoeg*Ay  ) 

2035 

Reeg=Ueg*Di /Nueg 

:  Jset 
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2040 

Re5“4«Mdot/<PI*Mueg*<Di-4*Delta)) 

2045 

Qdot=Mdot *Cpeg*Delt 

2050 

Qdp( I  )=Qdol /Ao 

2055 

IF  1=0  OR  I=Iact  THEN 

2060 

Qdpl=Qdp( I  ) 

2065 

CALL  Nusseli 

2070 

END  IF 

2075 

Lmtd=Delt/LOG< (Tsat-K 1+6  )  )/(T5at-T< 1+6  )-Delt  )  ) 

2080 

Uo<  I  )=Qdp<  I  )/Lfn'td 

2081 

Cfeg=l 

2085 

IF  Reeg<4000  THEN 

2086 

IF  lnsert=0  THEN 

2088 

Bbl“.0668»<Di/L  )*Reeg*Preg 

2089 

Bb2*l+.04*<  <Di/L  )»Reeg*Preg  )" .6666 

2090 

Nueg=3.66+(Bbl/Bb2) 

2091 

END  IF 

2092 

IF  Insert"!  THEN 

2094 

Nueg=l .  86*  <  Preg*Roeg  )'' .  333333*  <  Di  /L  )  ” .  33333 *0  f 

eg 

2095 

Nueg=Cia<  Insert ,  I  )*<  1+5. 484E-3*Preg''  .7*<Res/Hod)''1.25)''.5 

2096 

END  IF 

2097 

IF  In5ert=2  THEN 

2098 

Nueg=Cia< Insert , I  )*( Reeg" .65  )*Preg" . 46 

2099  — 

END  IF 

2100 

IF  In3ert=3  THEN 

2101 

Nueg“Cia<  Insert ,  I  )*  (  Reeg'' .  76  )*Preg'' .  46 

2102 

END  IF 

2104 

ELSE 

2105 

BEEP 

2106 

PRINT  USING  "10X, ""TURBULENT  CORRELATION . 

2110 

Nueg-.027*Reeg-'  .8*Preg"  .3333*Cfeg 

2115 

END  IF 

2120 

Hi=Nueg*Keg‘'Dl 

2125 

Ho< I )  =  !/( l/Uo( I  )-Do/(Di*Hi  )-Rn*Al  ) 

2130 

IF  1=0  OR  I=Iact  THEN 

2131 

PRINT 

2132 

PRINT 

2134 

PRINT  USING  "lOX," "RESULTS  FOR  TUBE  NO."", 3D"; 

I  +  l 

2135 

PRINT 

2136 

PRINT  USING  "10X,""Ma5s  flow  rate  =  “ 

" ,MZ.3DE" :Maot 

21371 

\ 

PRINT  USING  " 10X Inside  Tube  Dia.  <n.)  =  " 

" , MZ . 3DE" ; Dia( I  tube 

I 

21381 

PRINT  USING  "10X,“"180  DEG  ODER  Dia.  (HOD)  =  " 

" ,MZ.3DE" :Hod 

2140 

PRINT  USING  "10X, ""Inlet  temperature  =  " 

" ,MZ.3DE" :T( I+G  ) 

2145 

PRINT  USING  " 10X , " "Saturat ion  temp  (Deg  C)  =  " 

" ,MZ.3DE" ;T5at 

2146  i 

PRINT  USING  "10X, “"DELTA  Tape  Thickness  =  " 

",MZ.3DE";Delta 

2147 

PRINT  USING  “10X,""DELT  temp  Dif. 

" ,MZ.3DE" :Delt 

2148 

PRINT  USING  "10X,""Log.  Mean  temp  Dif. 

" ,MZ.3DE" ;Lmtd 

2150 

PRINT  USING  "10X,""Heet  flux  =  " 

" ,MZ.3DE" ;Qdp( I  ) 

2151  1 

PRINT  USING  "10X, ""Conductivity  E.G.  =  " 

" ,MZ.3DE" ;Keg 

2152  1 

PRINT  USING  "10X, ""Conductivity  Tube  Metal  =  " 

" ,MZ.3DE" ;Km 
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2153 

PRINT 

USING 

"  10X  ,  "Resi St ance  of  Tube  Metal 

"  .  MZ  .  3DE " 

;  Rm 

2155 

PRINT 

USING 

"  10X ,  “  "Prandt 1  number 

«= 

" ",MZ.3DE" 

;  Preg 

2160 

PRINT 

USING 

" 10X “Reynolds  number 

se 

" " ,MZ.3DE" 

;  Reeg 

2161 

PRINT 

USING 

"  10X , " “Reynol ds  number  H&B  S 

e 

"  “,MZ.3DE" 

;Res 

2165 

PRINT 

USING 

“ 10X , " " Insi de  h . t . c . 

= 

,MZ.3DE" 

;Hi 

2166 

PRINT 

USING 

“10X, “"Inside  NUSSULT  NO. 

s 

" ".MZ.3DE" 

;  Nueg 

2167 

PRINT 

USING 

“10X, "“OUERALL  H.t.c.  ( Uo  ) 

s 

" " ,MZ.3DE" 

;Uo(  I  ) 

2170 

PRINT 

2171 1 

PRINT 

USING 

“10X,  "“KF 

“",MZ.3DE“ 

;Kf 

2172  ! 

PRINT 

USING 

"10X,"“RHOF 

= 

"" ,MZ.3DE" 

;  Rho  f 

21731 

PRINT 

USING 

"i0X, ""HFG 

"",MZ.3DE“ 

:Hfg 

2174! 

PRINT 

USING 

"10X,“"MUF 

s 

“",MZ.3DE" 

;  Mu  f 

2175 

PRINT 

2177 

PRINT 

USING 

"10X,"“TUBE  FM  UEG 

DELT  Uo 

HO 

HNUS . 

2180 

PRINT 

USING 

•'10X,"”  t  <%i  (m/s' 

(K  > 

<W/m"2 

K  ) . 

2185  PRINT  USING  " 10X , 3D , AX , 3D . DD , 3X , Z . DD , AX , DD . 3D , 2X , MZ . 3DE , 3X , MZ . 3DE 

,3X,NZ  .3DE,3X’'  i  I+l  ,Pc<  I  ^UeQ.Deli  ,Uo(  n,Ho(I  ),Hnu5 
2190  ELSE 

2195  PRINT  USING  " 10X , 3D , 4X , 3D .DD . 3X , Z . DD . 4X , DD . 3D , 2X , MZ . 3DE , 3X ,MZ . 3DE 

,3X'' I  +  l  ,Pc(  n.Ueg.Delt  ,Uo<  I  ),Ho(  I  ) 

2200  END  IF 

2205  NEXT  I 

2210  IF  ln=0  THEN 

2215  Okaccpt=l 

2220  BEEP 

2225  INPUT  "OK  TO  ACCEPT  THIS  SET  ( 1=DEFAULT*YES ,  0=NO  )? " , Okaccpt 

2230  IF  Okaccpl*!  THEN  OUTPUT  @Fi le ; • > , Emf ( ♦  ) , Tp^ •  ) 

2235  END  IF 

2240  IF  (Okaccpl  =  l  OP  In=l  )  AND  Ioul  =  l  THEN 

2245  FOR  1=0  TO  2 

2250  OUTPUT  @Fout ;Ho< I  ).Odp< n 

2255  NEXT  I 

22G0  END  IF 

2265  IF  ln=0  THEN 

2270  Okrpl=l 

2275  BEEP 

2280  INPUT  “UILL  THERE  BE  ANOTHER  RUN  ( 1=YE5=DEFAULT ,0=NO .Okrpt 

2285  IF  OkrpT=l  THEN  1683 

2290  ELSE 

2295  IF  JseUNsets  THEN  1685 

2300  END  IF 

2305  ASSIGN  @File  TO  * 

2310  IP  Iout=l  THEN  ASSIGN  @File  TO  # 

2315  SUBEND 

2320  DEF  FNGrad(T) 

2325  Grad=-3.877857E-5-2*4.7142857E-8*T 

2330  RETURN  Grad 

2335  FNEND 
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2340  DEF  FNKcu(T) 

2345  I  OFHC  COPPER  250  TO  300  K 
2350  TI<=T+273.15 

2355  K=434-. 1 12*Tk 

2360  RETURN  K 

2365  FNEND 

2370  DEF  FNNue9< Tc , Egr  ) 

2375  I  RANGE  OP  UALIDITY:  -20  TO  20  DEG  C 
2380  Tk=Tc+273.15 

2385  Nul-7. 119G507E-3-Tk*<7.48G3347E-5-TM<2.6294943E-7-T|.  *3 . 0833329E-10  )  > 

2390  Nu2  =  4.9237638E-3-Tk*<4.9213912E-5-TI.«(  1 . 6437534E-7-Tk  *  1 . 8353331E-10  )  > 

2395  Nu3=8.G586293E-3-Tk*<  8.8837902E-5-Tk •<  3,0495032E-7-Tk*3.4999996E-10 ) ) 

2400  A2*( Nu3-2«Nu2+Nul  )/200 

2405  Al=( Nu2-Nul-940*A2  W10 

2410  A0=Nul-42»Al-1764*A2 

2415  Nu=A0+Egr*< Al+Egr*A2 > 

2420  RETURN  Nu 

2425  FNEND 

2430  DEF  FNCpe9(Tc,Egr  ) 

2435  '  RANGE  OF  UALIDITY^  0  TO  20  DEG  C 

2440  Tk =Tc+273. IS 

2445  Cpl=l .G701550E+5+Tk*G.3 

2450  Cp2  =  l  .4748125E+3-*-Tk»G.25 

2455  Cp3*9.5800500E+2+Tk*7.3 

2460  A2*<Cp3-2*Cp2+Cpl  )/200 

2465  Al-( Cp2-Cpl-900»A2  V10 

2470  A0=Cpl-40*Al-1600*A2 

2475  Cp*'A0+Egr*<  Al+Egr*A2  > 

2480  RETURN  Cp 

2485  FNEND 

2490  DEP  FNRhoeg( T.Egr  ) 

2495  Rol'l .0607093E  +  3-T*<3.7031283E-l  +  T»4. 08371836-3  > 

2500  Po2»l .0748272E  +  3-T*( 4.4266195E-l+T*4.0939706E-3  > 

2505  Ro3=l .0885934E+3-T*<5.7355655E-l+T*6. 1281405E-3  > 

2510  A2=<Ro3-2*Ro2+Rol )/200 

2515  Al-( Ro2-Rol-900»A2  )/10 

2520  A0=Rol-40*Al-1600*A2 

2525  Rn.A0+Egr*( Al+Egr*A2  ) 

2530  RETURN  Ro 

2535  FNEND 

2540  DEF  FNPreglT.Egr-  ) 

2545  Pr*FNCpeg(T,Egr  )*FNNueg<  T  ,Egr  )*FNPoegf  T,  Egr  >  ''FNKeg(  T  ,  Egr  ) 

2550  RETURN  Pr 

2555  FNEND 

2560  DEF  FNKeg<  Tc .Egr  ) 

2565  I  RANGE  OF  UALIDITY^  -20  TO  20  DEG  C 
2570  Tl.  =Tc  +  273. 15 

2575  Kl=2 .2824708E-l  +  Tk*(5.5989286E-4+Tk*3.571428GE-7  i 

2580  K2  =  2.584BG16E-l+Tk*(2.3978571E-4+Tk*7. 1428571E-7  > 

2585  K3  =  3.:i36932E- l-Tk  *( 5.0042857E-4-T1 • 1 . 428571 4E-G  ' 
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2590  A2  =  ( K3-2*K2+K1  )/200 

2=55  Al=( K2-K1-900*A2 j/10 

2500  A0=K1-40*A1-1600*A2 

2605  K-=A0+Egr-*(  Al+Eg'-«A2  ' 

2610  RETURN  K 

2615  FNEND 

2620  DEF  FNTanh( X  i 

2625  P  =  EXP( X  ) 

2650  Q-l/P 

2635  Tanh«<P-0 '/<P  +  Q  ) 

2640  RETURN  Tanh 

2645  FNEND 

2650  DEF  FNTv5v(U) 

2655  COM  /CcX  C<7) 

2660  T=C(0) 

2665  FOR  1=1  TO  7 

2670  T  =  T  +  C<  I 

2675  NEVT  I 

2600  RETURN  T 

2605  FNEND 

2690  DEF  FNBetaf  T  ) 

2695  Pop=FNRho<  T+. n 

2700  Rom  =  FNRho<  T-  .  1  ' 

2705  Beta”~2''<Rop+fiofn'«(Rop~RoM'/.2 

2710  RETURN  Beta 

2715  FNEND 

2720  DEF  FNPsat^Tc  > 

2725  '  0  TO  80  deg  F  CURUE  FIT  OF  Psat 

2730  Tf=l.8»Tc+32 

2735  Pa=5.945525+Tf*(  . 15352082  +  Tf *( 1 . 48409B3E-3+T f * 9 . 6 1 5067 lE-6  )  ) 

2740  Pg=Pa-14.7 

2745  IF  Pg>0  THEN  I  +=PSIG,-=in  Hg 

2750  Psat-Pg 

2755  ELSE 

2760  P5at»Pg»29.92/14.7 

2765  END  IF 

2770  RETURN  Psat 

2775  FNEND 

2850  sue  Xyread 

2855  BEEP 

2860  INPUT  "ENTER  FILE  NAME”,FileS 

2865  BEEP 

2870  INPUT  "ENTER  NUMBER  0=  x , Y  PAIRS", N 
2875  ASSIGN  @File  TO  File* 

2880  FOR  I-l  TO  N 

2885  ENTER  @File;X,Y 

2890  PRINT  X,Y 

2885  NE^T  1 

2900  SUBEND 

2905  Sue  Pu'‘ge 
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2910  BEEP 

2915  INPUT  "ENTER  FILE  NAME  TO  BE  DELETED" ,F: le$ 

2920  PURGE  Files 

2925  GOTO  2910 

2930  SUBEND 

2935  SUB  Wilson 

2940  COM  /Will/'  Doa^  4  > ,  Dia<  4  > ,  KmaM  ) ,  lac  t ,  Droot  M  > 

2945  COM  /Wil2/  Del t a , I  sat , Nse t s , Hod , Cia( 3 , 3 > , Alpaa( 3 ^ 

2950  DIM  Ewf ( 17  ),T< 17  ) , Va( 100  ),ya( 100 >,Pc( 4  ),Tp( 4  ) 

2955  BEEP 

2960  INPUT  "PLEASE  RE-ENTER  NAME  OF  FILE", File* 

2965  ASSIGN  @File  TO  FileS 

2970  INPUT  "0-SMOOTH  COPPER  TUBE,  1=CUNI  FIN,  2=K0R0D£NSE,  3=FIN  TITAN", Itube 

2975  BEEP 

2976  INPUT  '0-NO  INSERT,  1=  TWISTED  TAPE  INSERT,  2-HITRANl,  3-HITRAN2" , Inser-t 

2977  beep 

2980  INPUT  "GIVE  A  NAME  FOR  XY  FILE",Xy$ 

2985  CREATE  BOAT  Xy$,20 

2990  ASSIGN  @Xy  TO  Xy$ 

2995  L-1.2192 

3000  Do-Doa ( I t ube > 

3005  Di=0ia< Itube  i 

3010  K>-Kma(  I  tube  ) 

3015  Ax=PI*Di'2/4  I  Cross-sectional  area 

3020  Ao*PI*0o*L 

3025  Pm-Do*LOG(Do/Di  )/(  2*Kfn  ) 

3030  I 

3035  I  Initial  values 
3040  Tf.Tset 

3045  Alpa=.655 

3046  IP  In5ert-0  THEN 

3050  Ci-1.0 

3051  END  IF 

3052  IF  Insert-l  THEN 

3053  Cl -5. 172 

3054  END  IF 

3055  IF  Insert-Z  THEN 

3056  C1-.22G 

3057  end  if 

3058  IF  In5ert=3  THEN 

3059  C1-.0G3 

3060  END  IF 

3062  6=9.81 

3063  lbeg=0 

3065  Iend-0  'CHANGE  TO  4 ,  IF  FIUE  TUBES  IN  BUNDLE 

3070  IF  Iact-'10  THEN 

3075  Ibeg-Iact 

3080  Iend=Iact 

3085  END  IF 

3090  ' 
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3095 

3100 

3105 

3110 

3115 

3120 

3125 

3130 

3135 

3140 

3145 

3150 

3155 

3160 

3161 
3165 
3170 
3175 
3180 
3185 

3190  I 

3191 
3195 

3200 

3201  ! 

3202  ! 

3204  I 

3205  I 

3206  I 
3210  I 
3215 
3220 
3225 
3230 
3235 
3240 
3245  ! 
3250 
3255 
3260 
3265 
3270 
3275 
3280 
3285 
3285 

3287 

3288 

3289 

3290 


FOR  I=Ibeg  TO  lend 
Sx=0 
Sy=0 
Sx5=0 
Svy=0 
Jset=0 

ASSIGN  ©File  TO  File$ 

ENTER  @Fi le i Dtg$ , 1 1 ube , Egrat , Ddl , Dd2 , Dd3 , Dd4 , Dd5 
ENTER  @Fne:Pc<  *  ),Enf  <  *  ),Tp<  *  ) 

FOR  J=0  TO  17 

T <  J )=FNTvsv( Emf ( J  ) ) 

NEXT  J 

Tvap=<T(0  )+T(  1  )+T(2  >  V3 
Tliq  =  <T<3)  +  T<4)  )/2 
Tliql=T(5> 

IF  lsat'0  THEN 
T5at=Tl iql 
ELSE 

T  5at=T  vap 
END  IF 

Grad=FNGrad<  T( 1  +  6  ) ) 

Toul  =  <T(2»I  +  10)  +  T(2*I  +  ll  ))/2 
Del-t=Tou't-T<  1+6  ) 

Tavg=T<  1+6  )+DeH*.5 
IF  I=Iend  THEN 
DeH=T<10)-T<9) 

Tavg=< T( 10  )-T( 9  )  )/2 
END  IF 

Uater/Et hy lene  Glycol  Mixture  Properties 
Rhoeg=FNRhoeg( Tavg , Egrat  ) 

Nueg=FNNueg(  Tavg, Egrat  ) 

Mueg=Nueg*Rhoeg 
Cpeg=FNCpeg( Tavg, Egrat  ) 

Keg“FNKeg< Tavg , Egrat  ) 

Preg=Cpeg*Mueg/Keg 

Mdot=FNFmcal< I ,T( 1+6  )  ,Pc( I > ) 

Oeg=Mdot /<  Rhoeg*Ax  ) 

Reeg=*Oeg*Di  /Nueg 

Re5*4*Mdot/<Mueg*(PI«Di-4* Delta  > ) 

Qdot  =Mdot  *Cpeg*Del t 
Qdp=Qdot /Ao 

Lntd=Delt  /LOG( ( T5at-T< 1+6 ) )/(T5at-T(  1  +  6 '-Delt  ) ) 

Uo=Odp/Lrntd 

IF  In5ert-0  THEN 

Bbl  =  .0GG8*<  Di/L '♦Reeg*Preg 

Bb2=l  +  .04*<  <Di/L  )*Reeg*Preg)''.6G66 

Onega  =  3 . G6+( Bb 1 /Bb2  > 

END  IF 
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3291 

3293 

3294 

3295 

3296 

3297 

3298 
5299 
3300 
3302  I 
3305  I 
3305 
3310 
3315 
3320 
3325  ! 
3330 
3335 
3340 
3345 
3350 
3355 

3360  !~ 

3365 

3370 

5375 

3380 

3385 

3390 

3595 

3400 

3405 

3410 

3415 

3420 

3425 

3430 

3435 

3440 

3445 

3450 

3455  I 

3460 

3465 

3470 

3475 

3480 

3485 

3490 

3495 


IF  In5ert=l  THEN 

Onega=(  1+5 . 484E-3*Preg*  .  7* ( Res /Hod  )  *  1 . 25  ,  5 

END  IF 

IF  Insert=2  THEN 

Omega=(  Reeg^ .  65  )*(  Preg'' .  46  ) 

END  IF 

IF  Insert=3  THEN 

Onega»< Reeg" .76  )♦< Preg" .46  ) 

END  IF 

R-114/R113  Properties 
Hfg'FNHfgtTsat  ) 

Kf=FNK<Tf  ) 

Rhof=FNRho<Tf  ) 

Muf=FNMu<Tf  ) 

F=<Kf''3*Rhof '•2*G*Hfg/(Muf*0o*Qdp  > )''  .33333 

Ho=Alpe*F 

Two=T  sat-Qdp/Ho 

Tf-T5at/3+2*Two/3 

Y  =  ( l  /Uo-Rn  )*F 

X=Do*F/<  Keg*0mega  ) 

PRINT  “0MEGA=" ;  Omega  :  "F="  ;F;  ••X  =  " ;  X  ;  ”Y=" ;  Y 

Xa<J5et)=X  I  INEFFICIENT  (MODIFY  LATER) 

Ya( Jset  )=Y 

S*:  =  Sx+X 

Sy=Sy+Y 

Sxs=Sxs+X*X 

Sxy-Sxy+X*Y 

Jset=J5et+l 

IF  Jset/Nsets  THEN  3135 
ASSIGN  ©File  TO  * 

Slope=(  N5et5*Sxy-Sx*Sy  )/(Nset5*Sxs-Sx''2  ) 

Intcpt  =  < Sy-Slope*Sx  )/Nsets 

Cic=l/Siope 

Alpac=l/Intcpt 

Cerr=AB5( <Ci-Cic  )/Cic  ) 

Aerr=ABS< ( Alpac-Alpa  )/Alpac  ) 

IF  Cerr>.001  OR  Aerr>.001  THEN 
Alpe=( Alpa+Alpac  >*.5 
Ci  =  (Ci+Cic  )*  .5 

PRINT  "CIC-"  ;Cic:  ••ALPA="  ;Alpa 
GOTO  3100 
END  IF 
BEEP 
BEEP 

PRINTER  IS  1 

PRINT  "CIC=" ;Cic ; "ALPA-" ; Alpa 
Cia( Insert , I  )=Cic 
Alpaa< I  )=Alpac 
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3500  PRINTER  IS  701 

3505  FOR  J=0  TO  Nsets-l 

3510  OUTPUT  @Xy;.Xa<  J  ),Ya(  J  ) 

3515  NEXT  J 

3520  PRINTER  IS  1 

3525  NEXT  I 

3530  ASSIGN  @Xy  TO  * 

3535  SUBEND 

3540  SUB  Nusselt 

3545  COM  /Nus/  I in , Tsai , Qdp ,Hoc ,K f ,Rhof ,Hf q , Muf , Do , I  tube 

3550  I  Do=.0159 

3555  Ho=1000 

35B0  IF  Iin-=0  THEN 

35G5  BEEP 

3570  INPUT  "ENTER  TSAT  AND  HEAT  FLUX" .Tsat ,Qdp 

3575  END  IF 

3580  Hfg=FNHfg<Tsat  ) 

3585  Two=Tsat-Qdp/Ho 

3590  Tf  =  T5at/3+2»Tuio/3 

3595  Kf=FNK(Tf) 

3600  Rhof=FNRho(Tf  ) 

3E05  Muf=FNMu(Tf) 

3610  Hoc=.G55*(Kf''3*Rhof''2*9.81*Hfg/(Muf*Do*Qdp  )  333333 

3615  IF  ABS< <Ho-Hoc  )/Hoc  )>.001  THEN 

3620  Ho=< Ho+Hoc  )♦ . 5 

3625  GOTO  3585 

3630  END  IF 

3635  IF  lin=0  THEN  PRINT  "HO=":Hoc 

3640  SUBEND 

3645  SUB  Plotl 

3650  DIM  Yaa<4) 

3655  PRINTER  IS  705 

3660  Idv=l 

3665  BEEP 

3670  INPUT  "OK  TO  USE  DEFAULT  VALUES  < 1=DEF=Y,0=N  )" , Idv 


3675 

IF  Idv=l  THEN 

3680 

Itn=2 

3685 

Xnin=l 

3690 

Xnax=5 

3695 

Xst  ep“l 

3700 

Ymin=0 

3705 

Yrnax=2 . 0 

3710 

Ystep*  .5 

3715 

ELSE 

3720 

BEEP 

3725 

INPUT  "ENTER 

MINIMUM  AND  MAXIMUM  X-VALUES" 

,  Xnin , Xnax 

3730 

BEEP 

3735 

INPUT  "ENTER 

MINIMUM  AND  MAXIMUM  Y-UALUES" 

,  Ynin , Ynax 

3740 

BEEP 

3745 

INPUT  "ENTER 

STEP  SIZE  FOR  X-AXIS" ,X5tep 
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3750 

3755 

3760 

3765 

3770 

3775 

3780 

3785 

3790 

3795 

3800 

3805 

3810 

3815 

3820 

3825 

3830 

3835 

3840 

3845 

3850 

3855 

3860 

3865 

3870 

3875 

3880 

3885 

3890 

3895 

3900 

3905 

3910 

3915 

3920 

3925 

3930 

3935 

3940 

3945 

3950 

3955 

3960 

3965 

3970 

3975 

3980 

3985 

3990 

5995 


BEEP 

INPUT  “ENTER  STEP  SIZE  FOR  Y-AXIS" , Ystep 
END  IF 

PRINT  “IN;SP1;IP  2300,1800,8300,6800:" 

PRINT  "SC  0, 100,0, 100:TL  2,0:“ 

Sfx  =  100/(Xnax-Xfnin) 

Sf y=100/ ( Ymax-Ymin  ) 

PRINT  "PU  0,0  PD" 

FOR  Xa*=Xt»iin  TO  Xmax  STEP  Xstep 
X=*(  Xa-Xnin  )*Sfx 
PRINT  "PA";X,",0:  XT:" 

NEXT  Xa 

PRINT  "PA  100,0;PU:" 

PRINT  “PU  PA  0,0  PD" 

FOR  Ya=Ymin  TO  Ymax  STEP  Ystep 
Y=( Ya-Ynin )*Sf y 
PRINT  "PA  0, " ; Y, “YT" 

NEXT  Ya 

PRINT  "PA  0,100  TL  0  2" 

FOR  Xa=Xmin  TO  Xmax  STEP  Xstep 
X*( Xa-Xnin  )*5f x 
PRINT  "FA" :X, " , 100;  XT- 
NEXT  Xa 

PRINT  "PA  100,100  PU  PA  100,0  PD“ 

FOR  Ya=Ymin  TO  Ymax  STEP  Ystep 
Y=<  Ya-Ynln  )*Sf y 
PRINT  "PD  PA  100, ",y, "YT" 

NEXT  Ya 

PRINT  "PA  100,100  PU" 

PRINT  "PA  0,-2  SR  1.5,2“ 

FOR  Xa=Xmin  TO  Xnax  STEP  Xstep 
X  =  <Xa-Xrnn  )*Sfx 
PRINT  "PA";X,",0:" 

PRINT  "CP  -2,-l:LB":Xa;"" 

NEXT  Xa 

PRINT  "PU  PA  0,0" 

FOR  Ya=Ynln  TO  Ymax  STEP  Ystep 
Y=<  Ya-Ymin  )*Sf y 
PRINT  "PA  0, " ; Y,  "" 

PRINT  "CP  -4,-.25:LB"  :Ya; "" 

NEXT  Ya 
BEEP 

INPUT  "SELECT  MODE  <  0-HN/Hl ,  1»=HN<  avg  )/Hl  )"  ,  Ism 

l5m=Ism+l 

IF  Idv=l  THEN 

IF  l5m=l  THEN  Ylabel$="HN/Hl " 

IF  Ism=2  THEN  Ylabel$=”HN( avg  )/Hl " 
Xlabel$*"Tube  Number" 

ELSE 

BEEP 
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4000 

4005 

4010 

4015 

4020 

4025 

4030 

4035 

4040 

4045 

4050 

4055 

4060 

4065 

4070 

4075 

4080 

4085 

4030 

4095 

4100 

4105 

4110 

4115 

4120 

4125 

4130 

4135 

4140 

4145 

4150 

4155 

4160 

4165 

4170 

4175 

4180 

4185 

4190 

4195 

4200 

4205 

4210 

4215 

4220 

4225 

4230 

4235 

4240 

4245 


INPUT  "ENTER  X-LABEL “ , XI abel$ 

BEEP 

INPUT  “ENTER  Y-LABEL" , YlabelS 
END  IF 

PRINT  "SR  1.5,2;PU  PA  50,-10  CP“ : -LEN(  X  label$  )/2  :  “  0 :  LB "  ;  X  label$.: 
PRINT  "PA  -11,50  CP  0, " ;-LEN<Ylabel$)/2*5/B; “DI  0 , 1 ; LB" ; Ylabel $ ; 
PRINT  "CP  0,0  DI" 

Okp  =  l 
BEEP 

INPUT  "WANT  TO  PLOT  DATA  FROM  A  FILE  ( 1=DEF  =  Y,0=N  )?" ,Okp 
IF  Okp=l  THEN 
BEEP 

INPUT  "ENTER  THE  NAME  OF  THE  DATA  FILE",Dfile$ 

ASSI6N  @File  TO  DfileS 
BEEP 

INPUT  "ENTER  THE  BEGINNING  RUN  NUMBER", Md 
BEEP 

INPUT  "ENTER  THE  NUMBER  OF  X-Y  PAIRS  STORED" .Nsets 
BEEP 

INPUT  "SELECT  A  SYMBOL  FOR  THE  PLOTTER  < 1  =  * , 2=+ , 3=c , 4=o , 5="  )“ 
PRINT  "PU  DI" 

IF  Sy»l  THEN  PRINT  "SM*“ 

IF  Sy=2  THEN  PRINT  "SM+" 

IF  Sy=3  THEN  PRINT  "SMc" 

IF  Sy»4  THEN  PRINT  "SMo" 

IF  Sy*5  THEN  PRINT  "SM"" 

FOR  I-l  TO  Nsets 
FOR  J*0  TO  3 

ENTER  @Flle:Yaa< J),D 
IF  J=0  THEN  Ytop=Yaa(0) 

Yaaf  J  )=Yaa(J  >/Ytop 
NEXT  J 

FOR  J=0  TO  3 

X  =  <  J  +  l-Xmin)*SfK 
Y=' Yaa( J  )-Ymin  >«Sfy 
PRINT  "PA",X,Y,"" 

NEXT  J 
NEXT  I 
BEEP 

ASSIGN  @File  TO  * 

GOTO  4040 
END  IF 
BEEP 

INPUT  "LIKE  TO  PLOT  THE  NUSSELT  RELATION  a=Y , 0=N  )? " , Oknus 
PRINT  "PLLSM" 

IF  Oknu5=l  THEN 

FOR  Xe“Xmin  TO  Xnax  STEP  Xstep/50 
X“<  Xa-Xtnin  )*Sf  x 

IF  l5m=l  AND  Xa>Xnin  THEN  Ya=Xe " . 75-( Xa- 1  ) " . 75 
IF  l5m=2  AND  Xa>Xnin  THEN  Ya'Xa" ( - . 25  ' 


.Sy 
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4250 

4255 

4260 

4265 

4270 

4275 

4280 

4285 

4290 

4295 

4300 

4305 

4310 

4315 

4320 

4325 

4550 

4335 

4540 

4345 

4350 

4355 

4360 

4365 

4370 

4375 

4380 

4385 

4390 

4395 

4400 

4405 

4410 

4415 

4420 

4425 

4430 

4435 

4440 

4445 

4450 

4455 

4460 

4465 

4470 

4475 

4480 

4485 

4490 

4495 


IF  Xa=Xmin  THEN  Ya=l 
Y=( Ya-Ymin  )*5fy 
PRINT  "PA" ,X,Y, ”PD" 

NEXT  Xa 
BEEP 

PRINT  "PU" 

INPUT  “MOUE  THE  PEN  TO  LABEL  THE  NUSSELT  LINE", Ok 
PRINT  "LBNusselt" 

END  IF 

IF  Isn=2  THEN 
BEEP 

INPUT  “LIKE  TO  PLOT  EXPTL  CURUE  ( 1=Y , 0=N  ) " , Okex 
Nq=0 

IF  Okex=l  THEN 
BEEP 

INPUT  "ENTER  THE  EXPONENT" , Ex 
FOR  Xa=Xmin  TO  Xmax  STEP  Xstep/lO 
Nq=Nq+l 
Ya  =  Xa''(-Ex  ) 

X*<  Xa-Xnin  )*Sf x 
Y=< Ya-Ymin  >*Sfy 
IF  Nq  MOD  2=0  THEN 
PRINT  "PA",X,Y,“PD" 

ELSE 

PRINT  "PA" ,X,Y, "PU" 

END  IF 
NEXT  Xa 
PRINT  "PU" 

BEEP 

INPUT  "MOVE  PEN  TO  LABEL  AND  HIT  ENTER" ,0k 
PRINT  "LB5=0" 

PRINT  "PR  -1  0" 

PRINT  "LB";Ex;"" 

GOTO  4300 
END  IF 
END  IF 
GOTO  4510 
BEEP 

INPUT  "LIKE  TO  PLOT  KERN  RELATIONSHIP  < 1=Y , 0=N , Yes 
IF  Ye5=l  THEN 

FOR  Xa=Xnin  TO  Xmax  STEP  X5tep/20 
Ya=Xa''<  -1/6  ) 

X“<  Xa-Xmin  )*Sf x 
Y=<  Ya-Ymin  )*Sf y 
PRINT  "PA" ,X,Y,"PD" 

NEXT  Xa 
PRINT  "PU" 

BEEP 

INPUT  "MOUE  THE  PEN  TO  LABEL  KERN  RELATIONSHIP" ,01 
PRINT  "LBKer-njPU” 
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4500 

4505 

4510 

4515 

4520 

4525 

4530 

4535 

4540 

4545 

4550 

4555 

4560 

4565 

4570 

4575 

4580 

4585 

4590 

4595 

4600 

4605 

4610 

4615 

4620 

4625 

4630 

4635 

4640 

4645 

4650 

4655 

4660 

4665 

4670 

4675 

4680 

4685 

4690 

4695 

4700 

4705 

4710 

4715 

4720 

4725 

4730 

4735 

4740 

4745 


END  IF 

PRINT  "PU  PA  0,0“ 

BEEP 

INPUT  "LIKE  TO  PLOT  EISSENBERG  RELATION  < 1  =  Y,0=N  )?“  ,Okei 
IF  Ol.ei  =  l  THEN 

FOR  Xa=Xinin  TO  Xmax  STEP  Xstep/lO 
Ya=.6+.42*Xa''(-.25  ) 

X  =  (Xa-Xmin  )*Sfx 
Y=<  Ya-Ytnin  )*Sfy 
PRINT  "PA" ,X,Y, "PD" 

NEXT  Xa 
PRINT  “PU" 

BEEP 

INPUT  "MOUE  THE  PEN  TO  LABEL  THE  EISSENBERG  LINE", Ok 
PRINT  "LBEi5senberg;PU“ 

END  IF 

PRINT  "PU  SP0" 

SUBEND 

DEF  FNPv5t<Tc  ) 

COM  /Fid/  Ift 
DIM  K<8) 

IF  lft=0  THEN 
BEEP 

PRINT  "POST  CORRELATION  NOT  AVAILABLE  FOR  R-114" 

STOP 
END  IF 

IF  Ift=l  THEN 

DATA  -7.691234564,-26.08023696,-168.1706546,64.23285504,-118,9646225 
DATA  4.16711732,20.9750676,1.69,6 
READ  K( *  ' 

T=(Tc+273.15)/G47.3 

Sun=0 

FOR  N=*0  TO  4 

Sun-Sun+K<  N  )*( 1-T  )"<N+1  ) 

NEXT  N 

Br  =  Sum/<T«(  1+K  <  5  )*  <  1-T  )+K  (  6  >♦  (1 -T  ) '2  ) )-(  1 -T  )/ (  K  (  7  )*  (  1 -T  ) ''2+K (  8  ) ) 

Pr  =  EXP(Br-  ) 

P=22120000*Pr 
END  IF 

IF  Ift»2  THEN 

Tf=Tc*l ,8+32+459.6 

8=10"  (  33.0655-4330 . 98/'Tf-9 . 2635*LGT(  Tf  )+2 .0539E-3*Tf  ) 
P»P*101325/14.696 
END  IF 

IF  in«3  THEN 

A=9 . 394685-3066 . l/( Tc+273 . 15 > 

P=133.32*10''A 
END  IF 
RETURN  P 
FNEND 
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4750 

4755 

4760 

4765 

4770 

4775 

4780 

4785 

4790 

4795 

4800 

4805 

4810 

4815 

4816  I 
4820 
4825 
4830 
4835 
4840 
4845 
4850 
4855 
4860 
4865 
4870 
4875 
4880 
4885 
4890 
4895 
4900 
4905 

4910 

4911 
4913 
4915 
4920 
4925 
4930 
4935 
4940 
4945 
4950 
4955 
4960 
4965 
4970 
4975 
4880 


DEF  FNHfQ(T) 

COM  /Fid/  Ift 
IF  lft=0  THEN 
Tf»T*l .8+32 

Hfg=6. 1451558E+l-Tf*(6.951079E-2+Tf*(l .3988688E-4+1 .9607843E-7*Tf ) ) 
Hfg=Hf g«232B 
END  IF 

IF  Ift=l  THEN 

Hfg=2477200-2450*( T-10  ) 

END  IF 

IF  Ift=2  THEN 
Tf=T*l .8+32 

Hfg«7.0557857E+l-Tf«<4.838052E-2+1.2619048E-4*Tf  > 

Hfg=Hfg*2326. 1 
Hfg=(l .611 -.0031 *T  )•! .0E+5 
END  IF 

IF  Ifl=3  THEN 
Tk=T+273.15 

Hfg=l .35264E+6-Tk*<6.38263E+2+Tk*. 747462  ) 

END  IF 
RETURN  Hfg 
FNEND 

~DEF  FNMu<T) 

COM  /Fid/  Ift 
IF  lft=0  THEN 
Tk=T+273.15 

Mu=EXP( -4. 4636+101 1.47/Tk  >  +  l.E-3 
END  IF 

IF  Ifl=l  THEN 

A=247.8/<T  +  133.15  ) 

Mu=2.4E-5*10''A 
END  IF 

IF  Ift=2  THEN 

Mu=8. 9629819E-4-T*( 1 . 1094609E-5-T  +  5. 566829E-8  > 

Tk=T+273.15 

Mu  =  1.34E-5*10.0''<503.0/(Tk-2.15) ) 

END  IF 

IF  Ift=3  THEN 

Tk=l/<T+273.15) 

Mu=EXP< -1 1 .0179+Tk*<  1 .744E+3-Tk*<  2.80335E+5-Tk*l . 1266 lE+8  ) )  ) 

END  IF 
RETURN  Mu 
FNEND 

DEF  FNUvsK  Tt  > 

COM  /Fid/  Ift 
IF  Ift^O  THEN 
BEEP 

PRINT  "OUST  CORRELATION  NOT  AVAILABLE  FOR  R-114" 

STOP 
END  IF 
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4985 

4990 

4995 

5000 

5005 

5010 

5015 

5020 

5025 

5030 

5035 

5040 

5045 

5050 

5055 

50B0 

5065 

5070 

50’’'^ 

5080 

5085 

5090 

5095 

5100 

5105 

5110 

5115 

5120 

5125 

5130 

5135 

5140 

51451 

5146 

5150 

5155 

5160 

5165 

5170 

5175 

5180 

5185 

5190 

5195 

5200 

5205 

5210 

5215 

5220 

5225 


IF  Ift»l  THEN 
P=FNPv5t<Tt ) 

T=Tt+273.15 

X=1500/T 

Fl  =  l,/(1+T*l  .E-4  ) 

F2  =  (  1-EXP<  -X  )  >'‘2 .5*EXP<  X  l/X'  .5 
B=.0015*F1-.000942*F2-.0004882«X 
K=2*P/<461 .52*T ) 

U=(  l  +  ( 1+2*B*K  .5  )/K 

END  IF 

IF  Ift=2  THEN 
Tf=Tl*l .8+32 

y-13.955357-Tf*( . 16127262-Tf*5. 1726190E-4 ) 

U=U/16.018 
END  IF 

IF  Ifl=3  THEN 
Tk=Tt+273.15 
P=FNPv5t( Tt  ) 

M=133.95*T|./P 
END  IF 
RETURN  U 
PNEND 

DEF  FNCp(T) 

COM  /Fid/  Ift 
IF  Ift-0  THEN 
Tk=T+273.15 

Cp*=.40118+Tk*(  1 .65007E-3+Tk  +  (  1 ,5l494E-6-Tk*6.67853E-10  )  > 

END  IF 

IF  Ifl-1  THEN 

Cp=4 ,21 120858-T*( 2 .26826E-3-T*( 4 . 423B1E-5+2 . 71428E-7*T  > i 
END  IF 

IF  Ifl=2  THEN 

Cp«=9,2507275E-l+T*(  9 . 3400433E-4+ 1 , 7207792E-B*T  ) 
Cp-(929.0+l,03*T)/1000. 

END  IF 

IF  Ifl-3  THEN 
Tk=T+273. 15 

Cp-4. 1868*(  1 .B884E-2  +  Tk»( 3.35083E-5-Tk*( 7.224E-6-Tk*7.61748E-9)  >  > 
END  IF 

RETURN  Cp*1000 
FNEND 

DEF  FNRho<T) 

COM  /Fid/  Ift 
IF  lft=0  THEN 
Tk«T+273, 15 
X=l-( 1 .8*Tk/753.95  > 

Ro=36 . 32+61 . 1464l4*X"f  1  /5  '  +  16 .  d 1 8015*X  +  1 7 . 476838*x " .  5+1 . 1 19828*X''2 
Ro-Rd/. 062428 
END  IF 

IF  Ift-1  THEN 
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5230 

5235 

5240 

5245 

5246  I 
5250 
5255 
5260 
5265 
5270 
5275 
5280 
5285 
5290 
5295 
5300 
5305 
5310 
5315 
5320 
5325 
5330 
5335 
5340 
5345 
53501 

5351  f 

5352  I 

5353 

5354 

5355 
5357 
5360 
5365 
5370 
5375 
5380 
5385 
5390 
5395 
5400 
5405 
5410 
5415 
5420 
5425 
5430 
5435 
5440 
5445 


Ro=999.52946+T*( . 01269-T*( 5. 482513E-3-T* 1 . 234147E-5  ) ) 

END  IF 

IF  Ift=2  THEN 

Ro=l .6207479E+3-T*( 2 .2186346+1*2 . 3578291E-3  ) 

Ro=l .  /  (  (  . 6 17+, 000647*1'' 1 . 1  >*1 .0E-3  ) 

END  IF 

IF  If+=3  THEN 

Tk=T+273. 15-338. 15 

Df  =  9.24848E-4+Tk*<6.27g6E-7+Tk*<  9,2444E-10+TI.-*3.057E-12  )  ) 
Ro=l/Vf 
END  IF 
RETURN  Ro 
FNEND 

DEF  FNPr<T) 

Pr=FNCp<T  )*FNMu(T  )/FNK(T) 

RETURN  Pr 
FNEND 

DEF  FNK<T) 

COM  /Fid/  Ift 

IF  lft=0  THEN  K=.071-.000261*T 
IF  Ift=l  THEN 

X=(T+273.15)/273.15 

K  =  -.92247+X*<2 .8395-X*( 1 .8007-X*( . 52577- . 07344*X  )  ) ) 

END  IF 

IF  Ifl=2  THEN 

K*=8.2095238E-2-T*(2.2214286E-4+T*2.3809524E-8  ) 

K-. 0802-. 000203*7 
K-.071-.000261*T 
Tf=T*l .8+32 

K-4.8461905E-2-Tf*6.5714286E-5 
K=K*1 .7308 
END  IF 

IF  Ifl-3  THEN 
Tl.=T+273.15 

K*=4. 1868E-4*(  51 9.442+. 320g20*Tk  ) 

END  IF 
RETURN  K 
FNEND 

DEF  FNHf<T) 

COM  /Fid/  Ift 
IF  Ift-0  THEN 
BEEP 

PRINT  "HF  CORRELATION  NOT  FOR  R-1 14- 
STOP 
END  IF 

IF  Ift=l  THEN 

Hf=T»( 4.203849-T*<5.e8132E-4-T*4.55160317E-6  )  ) 

END  IF 

IF  Ift=2  THEN 
Tf-T.l .8+52 
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5450 

5455 

5460 

5465 

5A70 

5475 

5480 

5485 

5490 

5495 

5500 

5505 

5510 

5515 

5520 

5525 

5530 

5535 

5540 

5545 

5550 

5555 

5560 

5565 

5570 

5575 

5580 

5585 

5590 

5595 

5600 

5605 

5610 

5615 

5620 

5625 

5630 

5635 

5640 

5645 

5650 

5655 

5660 

5665 

5670 

5675 

5680 

5685 

5690 

5695 


Hf=8.2078571+Tf*(  , 19467857+Tf*l .3214286E-4  ) 
Hf=Hf*2.326 
END  IF 

IF  Ift=3  THEN 

Hf=250  !  TO  BE  UERIFIED 

END  IF 

RETURN  Hf*1000 

FNEND 

SUB  Plot2 

COM  /Drl/  St ar , Sym , Icon 

COM  /Fid/  Ift 

DIM  C<9>,Xya<7),Doa<4) 

DATA  0.0158,0,0158,0.0158,0.0158 
READ  Doa( *  ) 

Fw=  1 

PRINTER  IS  1 
BEEP 

PRINT  USING  "4X, '“'Select  Option  X-Y  Limits: . 

PRINT  USING  "6X,""0  Use  default  values . 

PRINT  USING  "6X,""1  Use  new  values . 

INPUT  Okd 
BEEP 

INPUT  “ENTER  TUBE  C0DE",Icode 
Do*Doa< I  tube  ) 

Iht=2 

BEEP 

PRINT  USING  ''4X, '“'Select  option.-'""' 

PRINT  USING  ''GX,''''0  h  versus  q""'' 

PRINT  USING  ’'6X,''''l  q  versus  Delta-T . 

PRINT  USING  ''GX,''''2  h  versus  Delta-T  <  default) 
INPUT  Iht 
PRINTER  IS  705 

IF  Okd»0  THEN  'AXIS  DEFAULT  VALUES 
IF  lht=0  THEN  !(h  vs  q) 

Yni n“0 
Ymav=60 
Y5tep=10 
Xrnin= .  2 
Xmax*! . 4 
X5tep=.2 
END  IF 

IF  Iht-1  THEN  I <q  vs  t  ) 

Xmin“0 
Ymin=0 
Ymax* . 5 
Xmax=l 5 
X5tep=3 
Yst  ep= .  1 
END  IF 

IF  Iht=2  THEN  I <  h  vs  t  ) 
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5700 

5705 

5710 

5715 

5720 

5725 

5730 

5735 

5740 

5745 

5750 

5755 

5760 

5765 

5770 

5775 

5780 

5785 

5790 

5795 

5800 

5805 

5810 

5815 

5820 

5825 

5830 

5835 

5840 

5845 

5850 

5855 

5860 

5865 

5870 

5875 

5880 

5885 

5890 

5895 

5900 

5905 

5910 

5915 

5920 

5925 

5930 

5935 

5940 

5945 


Xmi n=0 
Yni n=0 
Xnax“50 
Ynax=6 


X5tep=10 

Ystep*! 


END  IF 
END  IF 

IF  Okd»l  THEN 
BEEP 

INPUT  “ENTER  MINIMUM  AND  MAXIMUM  X-UALUES" ,Xnin.Xna> 
BEEP 

INPUT  "ENTER  MINIMUM  AND  MAXIMUM  Y-UALUES " , Ymi n , Yma » 
BEEP 


INPUT  "ENTER  STEP  SIZE  FOR  X-AX IS" , Xstep 
BEEP 

INPUT  "ENTER  STEP  SIZE  FOR  Y-AX IS " . Ystep 
END  IF 
BEEP 

PRINT  “IN;SP1;IP  2300, 1800 ,8300, 6800- " 

PRINT  "SC  0, 100,0, 100; TL  2,0;" 


Sfx»100/(  Xna». -Xmin  ' 


Sfy"100^<  Ynav-Ymin  ' 
BEEP 


Icg'O 

INPUT  "LIKE  TO  BY-PASS  CAGE  <  1=Y,0=N=DEFAULT  )?" , leg 
IF  Icg*l  THEN  6175 
PRINT  "PU  0,0  PD" 

FOR  Xa“Xi*tin  TO  Xmar  STEP  Xstep 
x«( Xa-Xnin  >*Sf x 
PRINT  "PA";X,",0;  XT;" 

NEXT  Xa 

PRINT  “PA  100,0;PU;  “ 

PRINT  “PU  PA  0,0  PD“ 

FOR  Ya“Ynin  TO  Ymax  STEP  Ystep 
Y»( Ya-Ynin  )*Sf y 
PRINT  "PA  0, " ;Y, "YT" 

NEXT  Ya 

PRINT  "PA  0,100  TL  0  2" 

FOR  Xa“Xnin  TO  Xmax  STEP  Xjtep 
X  =  <  Xa-Xrti n  )*Sf  x 
PRINT  "PA" iX , " , 100:  XT- 
NEXT  Xa 

PRINT  "PA  100,100  PU  PA  100,0  PD" 

FOR  Ya“Yfnin  TO  Ymax  STEP  Ystep 
Y  =  ( Ya-Ymin  )*Sf y 
PRINT  “PD  PA  100, " ,Y, "YT" 

NEXT  Ya 

PRINT  "Pi°i  100,100  PIJ- 
PRINT  "PA  0,-2  SR  1  .5,2" 
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5950 

5955 

5960 

5965 

5970 

5975 

5980 

5985 

5990 

5995 

6000 

6005 

6010 

6015 

6020 

6025 

6030 

6035 

6040 

6045 

6050 

6055 

6060 

6065 

6070 

6075 

6080 

6085 

6090 

6095 

6100 

6105 

6110 
6115 
6120 
R  1  .1 
6125 
6130 
6135 
1.5.; 
6140 
6145 
2.0 
6150 
6155 
6160 
6165 
6170 
6175 


FOP  Xa  =  Xrnin  TO  Xmax  STEP  Xstep 
X  =  ( Xa-Xnin  )*5fx 
PRINT  “PA"  :X  ,  ,0:  “ 

IF  Xaa  AND  Va<>0  THEN  PRINT  "CP  -1 . 5 ,  - 1  ^  LB0  ;  PR  -1 , 0 :  LB " ;  Xe  ;  "  " 

IF  Xa=0  THEN  PRINT  "CP  -.5,-1 :LB0"  . 

X  in»0 

IF  Xa  MOD  1=0  then  Xin=l 

IF  Xa>=10  THEN  PRINT  "CP  -2 , - 1 ; LB " ; X® : “ " 

IF  Xa>l  AND  Xa< 10  AND  Xin=l  THEN  PRINT  "CP  - 1 . 25 , -1 ; LB " ; Xa ; "  “ 

IF  Xa>l  AND  Xin=0  THEN  PRINT  "CP  -2 , -1 ; LB " ; Xa ;  " " 

IF  Xa=l  THEN  PRINT  "CP  -l.-l:LB1.0“ 

NE'^T  Xa 

PRINT  "PU  PA  0,0" 

FOR  Ya=Ymin  TO  Ymax  STEP  Yslep 
Y  =  f  Ya-Ynin  )»Sfy 
PRINT  "PA  0, " ; Y  ,  “  “ 

IR  lht=0  AND  Ya^0  THEN  PRINT  "PR  2,0" 

IF  Ya'l  AND  Ya<>0  THEN  PRINT  "CP  -4 , - . 25 ; LB0 ; PR  -2 , 0 ; LB " : Ya ; " " 

IF  Ya=0  THEN  PRINT  "CP  -2.-.25:LB0" 

IF  Ya>l  AND  Iht'2  THEN  PRINT  “CP  -5 , - . 25 ; LB " ; Ya ;  " " 

IP  Ya>9  AND  Ihl=2  THEN  PRINT  "CP  -4 , - . 25 ; LB " . Ya •  " " 

IF  va>0  AND  Ya<10  AND  Iht=2  THEN  PRINT  "CP  -3 , - . 25 i LB" ; Ya ; " " 

I  IF  Ya-1  THEN  PRINT  "CP  -4 , - . 25 ; LB  1 . 0 " 

NEVT  Ya 
IF  Old'l  THEN 
BtEP 

INPUT  “ENTER  X-LABEL" .XiabelS 
BEEP 

INPUT  "ENTER  Y-LABEL" , YlabelS 
END  IP 

IF  IKY'^'.-l  THEN 

PRINT  "SR  1.5,2;PU  PA  -12,35;DI  0,liLBh:PR  1 , 0 . 5 ; LBo ; PR  -l,0.5;LB/< 

PRINT  "PR  -1,0.5;SR  1.1.5;LB2;SR  1.5,2;PR  .5,.5;LB.;PR  .5,0;LBKr' 
ELSE 

PRINT  "PA  -12,39;DI  0 , 1 ; LBq / ( MU/m : SR  1.1.5;PR  - 1 , 0 . 5 ; LB2 ; SR  1.5,2;P 
.0.5;Le  >" 

END  IF 

IF  lht=0  THEN 

PRINT  "SR  1.5,2:PU  PA  40 , - 10 ; DI ; LBq / ( MU /m ; PR  0 . 5 , 1 ; SR  1 , 1 . 5 ; LB2 ; SR 
;PR  .5,-1: LB)" 

ELSE 

PRINT  "DI  PA  38,-10:LB<T;PP  .5,-l.LBs;PP  .5,1;LB-T;PR  -2.4.3  PD  PR 
PU : PR  .5,-4." 

PRINT  "LBwo.PR  .5. 1 -LB  )/P'" 

END  IP 

PRINT  "CP  0.0  DI" 

Xlg=l  .E-y6 
X  ug=- 1  .  E  +  6 
X  a  1 ”50 
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6180 

6185 

6190 

6195 

6200 

6205 

6210 

6215 

6220 

6225 

6230 

6235 

6240 

6245 

6250 

6255 

6260 

6265 

6270 

6275 

6280 

6285 

6290 

6295 

6300 

6305 

6310 

6315 

6320 

6325 

6330 

6355 

6340 

6345 

6350 

6355 

6360 

6365 

6370 

6375 

6380 

6385 

6390 

6395 

6400 

6405 

6410 

6415 

6420 

6425 


Yal=95 

Nrun=0 

BEEP 

INPUT  "WANT  TO  PLOT  DATA  FROM  A  FILE  < 1=Y , 0=N  )7 " , Qk 
Xll=l .E+6 
Xul=~l  .E  +  6 
Ok  p =0 

IF  Ok=l  THEN 
BEEP 

INPUT  "ENTER  THE  NAME  OF  THE  PLOT  DATA  F I LE " , D_f i leS 
ASSIGN  @File  TO  D_fne$ 

IF  lcomb<>0  THEN  6265 

5x=0 

Sy=0 

S/2-0 

Sx  y  “0 

Md=l 

BEEP 

INPUT  "ENTER  THE  BEGINNING  RUN  NUMBER  (DEF=l)",Md 

Npairs'S 

BEEP 

INPUT  'ENTER  THE  NUMBER  OF  X-Y  PAIRS  STORED  ( DEF  =  9  ) "  ,  Npa irs 

Nrun»Nruri+Npairs 

PRINTER  IS  1 

BEEP 


PRINT 

USING 

"4V  ,  " 

“Selecl  a  symbol : . 

PRINT 

USING 

"4X," 

"  1 

Star  2  Plus  sign""" 

PRINT 

USING 

"4V," 

"  3 

Circle  4  Square . 

PRINT 

USING 

"4X," 

"  5 

Rombus . 

PRINT 

USING 

"4X," 

“  6 

Right-side-up  triangle""" 

PRINT 

USING 

"4X," 

"  7 

Up-side-down  triangle""" 

INPUT 

BEEP 

Sym 

INPUT 

"ENTER 

TUBE 

NUMBER  FOR  PLOTTING  (  0=TOP , I'SECOND , 

PRINTER  IS  705 
IF  Syn-l  THEN  PRINT  "SM*" 
IF  5yn=2  THEN  PRINT  "SM+” 
IF  Syn=3  THEN  PRINT  "SMo" 
IF  Md>l  THEN 

FOR  1=1  TO  (Md-1 > 

ENTER  @File;Xya( *  ) 
NEXT  I 
END  IF 

FOR  I“1  TO  Npairs 

ENTER  @Fi le; Xya< .  ) 
Ya»Xya( I tube»2  > 
Xa=Xya' Itube»2+1  > 
Yr=.LOG(  Xa  > 

Yc»LOG( Xa/Ya  ' 

S*'  =  Sx  +  Xc 
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G430 

6435 

6440 

6445 

6450 

6455 

6460 

6465 

6470 

6475 

6480 

6485 

6490 

6495 

6500 

6505 

6510 

6515 

6520 

6525 

6530 

6535 

6540 

6545 

6550 

6555 

6560 

6565 

6570 

6575 

5580 

6585 

6590 

6595 

6600 

6605 

6610 

6615 

6620 

6625 

6630 

6635 

B640 

SG45 


Sy=5y+Yc 
Sx2  =  5x2  +  Xc''2 
Sxy“Sxy+Xc*Yc 
IF  Ihl-0  THEN 
Xt=Ya 
Ya=Ya/Xa 
Xa=Xl 

IF  Xa/l.E+6>Xul  THEN  Xul=Xa/l.E+G 
IF  Xa/1 .E+6<X11  THEN  Xll=Xa/l.E+6 
END  IF 

IF  lhl“0  THEN 

X=<Xa*l.E-G-Xmin)*Sfx 
Y=»<  Ya*l  .E-3-Ymin>*Sfy 
END  IF 

IF  Iht=*l  THEN 

X  =  ( Xa-Xnin  )*Sf x 
Y=<  Ya»l .E-G-Ymin  )*Sfy 
END  IF 

IF  Iht=2  THEN 

X  =  <  Xa/Ya-Xmin  )*Sfx 
Y=<Ya*l .E-3-Ymin)*Sfy 
END  IF 

IF  Y>100  OR  Y<0  THEN  6585 
IF  Syp)>3  THEN  PRINT  “SM" 

IF  Sym<4  THEN  PRINT  "SR  1. 4,2.4" 

PRINT  "PA",X,Y,"" 

IF  Sym>3  THEN  PRINT  "SR  1.2, 1.6" 

IF  5yn=4  THEN  PRINT  "UC2 ,4 , 99, 0, -8 , -4 , 0 , 0 , 8 , 4 , 0 ; " 
IF  SyM-5  THEN  PRINT  "UC3, 0 , 99 , -3 , -6 , -3 , 6 , 3 , 6 , 3 , -6 
IF  Syn=6  THEN  PRINT  "UC0 ,5 . 3 , 99 , 3 , -8 , -6 , 0 , 3 , 8 ;  " 

IF  Syn=7  THEN  PRINT  "UC0, -5. 3 , 99 , -3 , 8 ,6 , 0 , -3 , -8 ; " 
NEXT  I 
BEEP 

INPUT  “WANT  TO  LABEL  < 1=Y,0=N  )?" , Ilbl 
IF  Ilbl=l  THEN 

IF  Syn>3  THEN  PRINT  "SN¬ 
IP  Syn<'4  THEN  PRINT  "SR  1.4, 2. 4" 

PRINT  "PA",Xal,Yal,"" 

IF  Sym>3  THEN  PRINT  "SR  1.2, 1.6" 

IF  Sym=4  THEN  PRINT  "UC2 , 4 , 99, 0 , -8 , -4 , 0 , 0 , 8 , 4 , 0 ; " 
IF  Syr-i-5  THEN  PRINT  "UC3 ,0 , 99 , -3 , -6  , -5 , 6 , 3 , 6 , 5 , -6  ; 
IF  Syn-G  THEN  PRINT  "UC0 ,5. 3 , 99, 3 , -8 , -6 , 0 , 3 , 8 ; " 

IF  Syn=7  THEN  PRINT  "UC0 , -5 . 3 , 99 , -3 , 8 , 6 , 0 , -5 , -8 ; " 
PRINT  "SM" 


6650  IF  Syn<4  THEN  PRINT  "PR  2,0" 

6655  PRINT  "PR  2,-1.0:5P  1 . 0 , 1 . 8 ; LB" ; D_f i le$ ;  " " 

6660  Yal*Yal-5 


6665  BEEP 


6670  input  “WANT  TO  ADD  ANOTHER  STRING  <  1=Y , 0=N  i"? " ,  las 

6675  IF  Ia5=l  THEN 
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6680 

6685 

6690 

6695 

6700 

6705 

6710 

6715 

6720 

6725 

6730 

6735 

6740 

6745 

6750 

6755 

6760 

6765 

6770 

6775 

6780 

6785 

6790 

6795 

6800 

6805 

6810 

6815 

6820 

6825 

6830 

6835 

6840 

6845 

6850 

6855 

6860 

6865 

6870 

6875 

6880 

6885 

6890 

6895 

6900 

6905 

6910 

6915 

6920 

6925 


BEEP 

INPUT  "ENTER  THE  STRING” ,Label$ 

PRINT  "PR  2,0:SR  1 . 0 , 1 . 8 ;  LB " ;  Label* ; 

GOTO  6665 
END  IF 
END  IF 
BEEP 

INPUT  "WANT  TO  COMBINE  ANOTHER  FILE?  (1«=Y,0=N ,  Iconb 
ASSIGN  ©File  TO  * 

Xll-5 

Xul=45 

IF  lcomb<>0  THEN  6220 
BEEP 

INPUT  "WANT  TO  PLOT  A  LEAST-SQUARES  LINE  < 1=Y,0=N  )"  ,  Ils 
IF  Ils=l  THEN 
BEEP 

INPUT  "SELECT  EXPONENT:  0=COMPUTE,  1=0.75 )", lexp 
BEEP 

INPUT  "SELECT  CURUE  TYPE  < 0=SOLID , 1-DASHED  ) " , 1 1 1 

Ilt=Ilt+l 

PRINT  "SM" 

IF  Iexp-0  THEN 

Bb  =  <  Nrun*Sxy-Sy*Sx  )/( Nrun*Sx2-Sx'’2  ) 

ELSE 

Bb=.75 
END  IF 

Aa=<  Sy-Bb*Sx  )/Nrun 
Aa*EXP(Aa  ) 

PRINTER  IS  1 

PRINT  USING  "10X,""a  =  " " ,  Z  .  4DE‘' ;  Aa 
PRINT  USING  "10X,""n  =  "",Z.4DE":Bb 
PRINTER  IS  705 
ln=0 

IF  lht=0  THEN  Xxstep=Xstep/40 
IF  lht>0  THEN  Xxstep=X5tep/10 
FOR  Xa=Xll  TO  Xul  STEP  Xxstep 
IF  Xa>.99*Xnax  THEN  6995 
IF  Ihl=l  THEN  Ya=Aa*Xa''Bb 

IF  lht=0  THEN  Ya=Aa''(  1/Bb  )*(Xa*l  .E+6  )'  <  (Bb-1  )/Bb  ) 
IF  Ihl=2  THEN  Ya=Aa»Xa" ( Bb-1  ) 

IF  Iht-0  THEN 

Y*<Ya*l,E-3-YPtin)*Sfy 
X  =  ( Xa-Xnin  )*5f x 
END  IF 

IF  Iht=l  THEN 

Y=<Ya*l .E-6-Ynin)*5fy 
X  =  ( Xa-Xnin  >*Sf x 
END  IF 

IF  Iht=2  THEN 
,  Y=( Ya* 1 . E-3-Ymin  )*Sf y 
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« 


6930 

6935 

6940 

6945 

6950 

6955 

6960 

6965 

6970 

6975 

6980 

6985 

6990 

6995 

7000 

7005 

7010 

7015 

7020 

7025 

7030 

7035 

7040 

7045 

7050 

7055 

7060 

7065 

7070 

7075 

7080 

7085 

7090 

7095 

7100 

7105 

7110 

7115 

7120 

7125 

7130 

7135 

7140 

7145 

7150 

7155 

7160 

7165 

7170 

7175 


X  =  <  Xa-Xnin  )*Sf x. 

END  IF 

IF  Y<0  THEN  Y=0 
IF  Y>100  THEN  6990 
IF  Ilt=l  THEN 

PRINT  "PA“,X,Y,"PD" 

ELSE 

In=In+l 
Ir=In  MOD  lit 

IF  Ir=l  THEN  PRINT  "PA“ , X , Y , "PD " 

IF  lr=0  THEN  PRINT  “PA“ ,X, Y, "PU" 

END  IF 
NEXT  Xa 
PRINT  "PU" 

END  IF 
lcomb*0 
GOTO  6185 
END  IF 

PRINT  "PU  SM" 

BEEP 

INPUT  "UANT  TO  PLOT  NUSSELT  LINE  <  1=Y,0=N ,  Inp 

IF  lnp=0  THEN  7125 

BEEP 

INPUT  "ENTER  TSAT  <DEFAULT=18  DEG  C)",Tsat 
Hf g*FNHf g<  T sat  ) 

XI  1=5 
Xul=45 

FOR  Xe=Xll  TO  Xul  STEP  Xstep/50 
Tf i lm=T  sat -Xa* . 5 
Kf=FNK(Tfili<i) 

Rhof=FNRho<Tfilm  ) 

Muf=FNMu<  Tf i In  ) 

Ya=.728*<Kf ''3*Rhof ''2*9.81*Hfg/(Muf*Do*Xa  )  >''.25 
X  =  <  Xa-Xmin  )*Sf x 
Y=<Ya*l.E-3-Ynin)*Sfy 
PRINT  “PA" ,X,Y, "PD" 

NEXT  Xa 

PRINT  "PU  PA  0,0" 

PRINT  "PU  PA  0,0  SP0" 

SUBEND 
SUB  Plots 

COM  /Drl/  St ar , Syn , Icon 
COM  /Fid/  Ift 
DIM  C<9) 

Fw=l 

PRINTER  IS  1 
BEEP 

PRINT  USING  "4X, ""Select  Option  X-Y  Linits: . 

PRINT  USING  ”6X,""0  Use  default  values . 

PRINT  USING  "6X,""1  Use  new  values . 
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7180 

7185 

7190 

7195 

7200 

7205 

7210 

7215 

7220 

7225 

7230 

7235 

7240 

7245 

7250 

7255 

7260 

7265 

7270 

7275 

7280 

7285 

7290 

7295 

7300 

7305 

7310 

7315 

7320 

7325 

7330 

7335 

7340 

7345 

7350 

7355 

7360 

7365 

7370 

7375 

7380 

7385 

7390 

7395 

7400 

7405 

7410 

7415 

7420 

7425 


INPUT  Okd 
PRINTER  IS  705 
IF  Okd=0  THEN 
Xi*iin=0 
Ymin=0 
Xi*ia'<  =  15 
Ynax=15 
X5tep=3 
Y5'tep=3 
ELSE 
BEEP 

INPUT  "ENTER  MINIMUM  AND  MAXIMUM  X-UALUES" ,Xnin,Xna 
BEEP 

INPUT  "ENTER  MINIMUM  AND  MAXIMUM  Y-UALUES" , Ynin , Yna 
BEEP 

INPUT  "ENTER  STEP  SIZE  FOR  X-AXIS" , Xstep 
BEEP 

INPUT  "ENTER  STEP  SIZE  FOR  Y-AXIS" .Ystep 
END  IF 
BEEP 

PRINT  "IN;SP1;IP  2300,1800,8300,6800;“ 

PRINT  "SC  0, 100,0, 100iTL  2,0:“ 

Sfx=100/<Xmax-Xnin) 

Sf y  =  100/ ( Ynax-Ymin  ) 

BEEP 

lcg=0 

INPUT  “LIKE  TO  BY-PASS  CAGE  ( 1»Y,0=N='DEFAULT  >?  “ ,  leg 
IF  Icg=l  THEN  7620 
PRINT  “PU  0,0  PD" 

FOP  Xa=Xnin  TO  Xnax  STEP  Xslep 
X  =  <  Xa-Xmin  )*Sf x 
PRINT  "PA";X,",0:  XT;“ 

NEXT  Xa 

PRINT  "PA  100,0;PU:" 

PRINT  "PU  PA  0,0  PD" 

FOR  Ya  =  Yr;in  TO  Ynax  STEP  Yslep 
Y  =  <  Ya-Ynin  )*Sf y 
PRINT  "PA  0, " ; Y, "YT" 

NEXT  Ya 

PRINT  "PA  0,100  TL  0  2" 

FOR  Xa'Xmin  TO  Xmax  STEP  Xstep 
X»=(  Xa-Xnin  )*Sf  x 
PRINT  “PA" ;X, “ , 100;  XT” 

NEXT  Xa 

PRINT  "PA  100,100  PU  PA  100,0  PD" 

FOR  Ya-Ynin  TO  Ynax  STEP  Ystep 
Y=(Ya-Ymin)*Sfy 
PRINT  “PD  PA  100, " ,Y, "YT" 

NEXT  Ya 

PRINT  "PA  100,100  PU” 


7430 

7435 

7440 

7445 

7450 

7455 

7460 

7465 

7470 

7475 

7480 

7485 

7490 

7495 

7500 

7505 

7510 

7515 

7520 

7525 

7530 

7535 

7540 

7545 

7550 

7555 

7560 

7565 

7570 

7575 

7580 

7585 

7590 

7595 

7600 

7605 

7610 

7615 

7620 

7625 

7630 

7635 

7640 

7645 

7650 

7655 

7660 

7665 

7670 

7675 


PRINT  "PA  0,-2  SR  1.5,2" 

FOR  Xa=.Xnin  TO  Xmax  STEP  Xstep 
X  =  <  Xa-Xmin  )*Sf x 
PRINT  "PA";X,",0;" 

IF  Xa-a  AND  Xa<'>0  THEN  PRINT  “CP  -1 . 5 , -1 ;  LB0 ;  PR  -l,0iLB";Xa.; 
IF  Xa=0  THEN  PRINT  "CP  -.5,-l;LB0" 

X  in=0 

IF  Xa  MOD  1=0  THEN  Xin=l 

IF  Xa>=10  THEN  PRINT  “CP  -2 ,-l ; LB" ; Xa ; “ “ 

IF  Xa>l  AND  Xa<10  AND  Xin=l  THEN  PRINT  "CP  -1 ,25 , -1 ; LB" ; Xa ; " 
IF  Xa>l  AND  Xin=0  THEN  PRINT  “CP  -2 , -1 : LB" ; Xa : " “ 

IF  Xa=l  THEN  PRINT  "CP  -1,-1;LB1.0" 

NEXT  Xa 

PRINT  "PU  PA  0,0" 

Ihl=2  !  MODIFY 
FOR  Ya=Yrnin  TO  Ymax  STEP  Ystep 
Y=(Ya-Ynin)*Sfy 
PRINT  "PA  0, " ; Y,  ““ 

IF  lhl=0  AND  Ya>0  THEN  PRINT  "PR  2,0" 

IF  Ya<:i  AND  Ya<>0  THEN  PRINT  “CP  -4 ,  - ,  25 ;  LB0 ;  PR  -2,0;LB"iYa: 
IF  Ya=0  THEN  PRINT  “CP  -2,-.25:LB0" 

IF  Ya>l  AND  Iht<2  THEN  PRINT  “CP  -5 , - . 25 ; LB" ; Ya ; " " 

IF  Ya>9  AND  Iht  =  2  THEN  PRINT  "CP  -4 , - , 25 ; LB " ; Ya  ;  " " 

IF  Ya>0  AND  Ya<10  AND  Ihl=2  THEN  PRINT  "CP  -3 , - . 25; LB" ; Ya ; " " 
IF  Ya-1  THEN  PRINT  "CP  -4 , -.25 ; LBl . 0" 

NEXT  Ya 
IF  Okd=0  THEN 
Xlabfil$="X" 

Ylabel$=“Y" 

ELSE 

BEEP 

INPUT  "ENTER  X-LABEL" ,Xlabel$ 

BEEP 

INPUT  "ENTER  Y-LABEL “ , YIabel$ 

END  IF 

PRINT  "SR  1,5,2  PU  PA  50,-10  CP" ; -LEN( X label$  )/2 ; "0 ; LB " : XlabelS : 
PRINT  "PA  -11,50  CP  0, " ;-LEN<Ylabel$)/2*5/6; "DI  0 , 1 : LB " ; YlabelS : 
PRINT  "CP  0,0  DI" 

Nrun=0 

BEEP 

INPUT  "WANT  TO  PLOT  DATA  FROM  A  FILE  ( 1=Y , 0=N  )? " , Ok 
Okp=0 

IF  Ok=l  THEN 
BEEP 

INPUT  "ENTER  THE  NAME  OF  THE  PLOT  DATA  FILE" ,D_f ile$ 

ASSIGN  @File  TO  D_file$ 

IF  lcomb<>0  THEN  7690 

S>:=0 

Sy=0 

Sv2=0 
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7G80 

7G85 

7680 

7685 

7700 

7705 

7710 

7715 

7720 

7725 

7730 

7735 

7740 

7745 

7750 

7755 

7760 

7765 

7770 

7775 

7780 

7785 

7780  — 

7785 

7800 

7805 

7810 

7815 

7820 

7825 

7830 

7635 

7840 

7845 

7850 

7855 

7860 

7865 

7870 

7875 

7880 

7885 

7880 

7835 

7800 

7305 

7810 

7315 

7920 

7925 


Sxy=0 

Md=l 

BEEP 

INPUT  "ENTER  THE  BEGINNING  RUN  NUMBER  (DEF=l)",Md 

Npair5=9 

BEEP 

INPUT  “ENTER  THE  NUMBER  OF  X-Y  PAIRS  STORED  <DEF»9 )" .Npairs 
BEEP 

INPUT  "SELECT  TUBE  NUMBER  < 0-TOP , l=SECOND . )",Itube 

Nrun-Nrun+Npairs 
PRINTER  IS  1 
BEEP 

PRINT  USING  “4X, ""Select  a  symbol: . 

PRINT  USING  ”4X,""  1  Star  2  Plus  sign . 

PRINT  USING  "4X,“"  3  Circle  4  Square""” 

PRINT  USING  "4X,""  5  Ronbus""" 

PRINT  USING  “4X,""  6  Right-side-up  triangle""” 

PRINT  USING  "4X,""  7  Up-side-down  triangle""" 

INPUT  Syn 

PRINTER  IS  705 

IF  Syn=l  THEN  PRINT  "SM»“ 

IF  5yn-2  THEN  PRINT  "SM+" 

IF  Sym-3  THEN  PRINT  "SMo" 

Md=Itube*9 
IF  Md>l  THEN 

FOR  1=0  TO  <Md-l  ) 

ENTER  @File;X,Y 
NEXT  I 
END  IF 

FOR  1=1  TO  Npairs 

ENTER  @File;Xa,Ya 

Sx=Sx+Xa 

Sy=Sy+Ya 

Sx2=Sx2  +  Xa''2 

Sxy=Sx,y+Xa*  Ya 

X“( Xa-Xmin  )*Sf x 

Y  =  ( Ya-Ymin  )*Sf y 

IF  Y>100  OR  Y<0  THEN  7910 

IF  Sym>3  THEN  PRINT  "SM" 

IF  Sym<4  THEN  PRINT  "SR  1.4,2.4" 

PRINT  "PA",X,Y,"" 

IF  Sym>5  THEN  PRINT  "SR  1.2, 1.6" 

IF  Sym=4  THEN  PRINT  "UC2 , 4 , 99, 0 , -8 , -4 ,0 , 0 , 8 , 4 , 0 ;  " 

IF  Syn=5  THEN  PRINT  "UC3 ,0 , 99, -3 , -6 , -3 ,6 , 3 , 6 , 3 , -6 ; " 

IF  Syn=G  THEN  PRINT  "UC0,5. 3 , 99, 3 , -8 , -6 , 0 , 3 , 8 ; " 

IF  Syn=7  THEN  PRINT  "UC0 , -5. 3 , 99, -3 , 8 , 6 , 0 , -3 , -8 ; " 

NEXT  I 
BEEP 

INPUT  "WANT  TO  LABEL  < 1-Y , 0=N  )? " , I Ibl 
IF  Ilbl-1  THEN 


% 


w 


r 


210 


7950 

7935 

7940 

7945 

7950 

7955 

7960 

7965 

7970 

7975 

7980 

7985 

7990 

7995 

8000 

8005 

8010 

8015 

8020 

8025 

8030 

8035 

8040 

8045 

8050 

8055 

8060 

8065 

8070 

8075 

8080 

8085 

8090 

8095 

8100 

8105 

8110 

8115 

8120 

8125 

8130 

8135 

8140 

8145 

8150 

8155 

8160 

8165 

8170 

8175 


IF  5yn>3  THEN  PRINT  “SM“ 

IF  Syi*i<4  THEN  PRINT  “SR  1,4, 2. 4" 

PRINT  “PA“,Xal,Yal,"“ 

IF  Sym>3  THEN  PRINT  "SR  1,2, 1.6" 

IF  Syfn=4  THEN  PRINT  "UC2 , 4 , 99 , 0 , -8 , -4 , 0 , 0 , 8 , 4 ,0 ;  " 

IF  Sym=5  THEN  PRINT  "UC3 , 0, 99 , -3 , -6 , -3 , 6 , 3 , 6 , 3 , -6 ; " 

IF  Sypi=6  THEN  PRINT  “UC0 , 5.3 , 99 , 3 , -8 , -6 , 0 , 3 , 8 ; " 

IF  Syw=7  THEN  PRINT  “UC0 , -5 . 3 , 99, -3 , 8 , 6 , 0 , -3 , -8 : " 

PRINT  "SM" 

IF  Sym<4  THEN  PRINT  “PR  2,0- 

PRINT  "PR  2,-1.0;SR  1.0,1.8;LB";D_file$: "" 

Yal=Yal-5 

BEEP 

INPUT  "WANT  TO  ADD  ANOTHER  STRING  ( 1=Y ,0=N  )? " , las 
IF  las-l  THEN 
BEEP 

INPUT  "ENTER  THE  STRING" , Label* 

PRINT  "PR  2,0;SR  1 .0 , I . 8 ; LB" ; Label* ; " " 

GOTO  7990 
END  IF 
END  IF 
BEEP 

INPUT  "WANT  TO  COMBINE  ANOTHER  FILE?  ( 1=Y,0=N )" , Icomb 
ASSIGN  @File  TO  * 

IF  lcomb<>0  THEN  7645 

Il5»l 

BEEP 

INPUT  "WANT  TO  PLOT  A  LEAST-SQUARES  LINE  ( 1*DEF=YES , 0=NO  ) " , I  Is 
IF  Ils=l  THEN 
BEEP 

INPUT  "SELECT  CURVE  TYPE  <  0=SOLID ,  1=DASHED  ) " -,  1 1 1 
IU  =  Ilt  +  l 
PRINT  "SM" 

IF  lexp*0  THEN 

Bb“( Nrun*Sxy-Sy*Sx  )/( Nrun*Sx2-Sx "2  ) 

ELSE 

Bb=.75 
END  IF 

Aa“(  Sy“Bb*S:«:  )/Nrun 
PRINTER  IS  1 

PRINT  USING  "10X,""a  =  " " ,MZ .3DE" ; Aa 
PRINT  USING  "10X,""n  =  " " ,MZ . 3DE" ; Bb 
PRINTER  IS  705 
ln=0 

FOR  Xa=Xi*!in  TO  Xnax  STEP  (Xpiax-Xtnin' 

Ya'Aa+Xa'Bb 
Y-(Ya-Ymin>*Sfy 
X  =  (  Xa-Xi*iin  )*Sf  x 
IF  Y<0  THEN  Y-0 
IF  YM00  THEN  GOTO  8220 


8180 

8185 

8190 

8195 

8200 

8205 

8210 

8215 

8220 

8225 

8230 

8235 

8240 

8245 

8250 

8255 

8260 

8270 

8280 

8290 

8300 

8320 

8330 

8340 

8350 

8370 

8380 

8390 

8400 

8420 

8430 

8440 

8450 

8460 

8470 

8480 

8490 


IF  Ilt=l  THEN 

PRINT  "PA" ,X,Y, "PD“ 

ELSE 

In=In+l 
Ir=In  MOD  lit 

IF  Ir=l  THEN  PRINT  “PA" , X , Y , "PD " 
IF  lr=0  THEN  PRINT  "PA“ ,X , Y, "PU" 
END  IF 
NEXT  Xa 
PRINT  “PU" 

END  IF 
lconb=0 
GOTO  7620 
END  IF 

PRINT  "PU  PA  0,0" 

PRINT  "PU  PA  0,0  5P0" 

SUBEND 

DEF  FNFncaK  I  ,T,Pc  ) 

IF  1=0  THEN 

Mdot0= . 00206 ♦Pc- . 004 1 4 
Mdot24=.00225*Pc-. 00329 
END  IF 
IF  1=1  THEN 

Mdot0= .00204*Pc- .00615 
Mdot24= . 00216*Pc- .00138 
END  IF 
IF  1*2  THEN 

Mdot0*.00208*Pc-.003G 
Mdot24= . 00223* Pc- .00301 
END  IF 
IF  1=3  THEN 

Mdot0=.0028*Pc-.00122 
Mdot24= . 002 9*Pc+ .0048 
END  IF 

Mdt*<  T*<  Mdot24-Mdot0  )/24  )+Mdot0 

RETURN  Mdt 

FNEND 


r 
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